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Foreword 


This is a curious and interesting book. 

While at first sight it appears to be a book which simply tells you 
how to write and develop games programs for the ZX80 — and gives 
the listings of over 60 programs in the process — closer inspection 
reveals that following through the explanation given for each game 
and computer function will teach you quite a bit about the ZX80, the 
BASIC language and micro-computers in general. 

However, the book is not all games. If you’re a parent or teacher, 
you'll find the section THE ZX80 AS TEACHER an aid in making the 
most effective use of the ZX80 in the classroom. Tim Hartnell has 
outlined some quite useful programs for school applications. After the 
teaching section, there are some useful subroutines, a run-down of the 
ZX80’s functions and a detailed look at the features of the new 8K 
ROM. 

The book is a worthwhile resource to make sure you do, indeed, 
“make the most of your ZX80’”. And you'll never feel quite the same 
about your computer after surviving a round of FRENZY, a game with 
a most peculiar slot-machine (FOUR FRUITS FEVER) or a crash-landing 
on the moon (LUNAR LANDER). 


SHERIDAN WILLIAMS 

Micro Computer Consultant 
to ‘Personal Computer World’ 
Magazine. 


Introduction 


Your ZX80 came in the post. You unwrapped it and were 
momentarily surprised {and secretly a little disappointed} at how tiny 
and — well — uninspiring it looked. 

The manual that came with your machine proved a boon. After 
struggling through it, you actually had a pretty fair idea of how to 
write a program. If you were like me when | first worked through the 
manual, you thought the program that rolled a die, and the one that 
drew two bar charts after a seemingly interminable delay, were pretty 
good. 

But, after reading through the book a few times, a faint, niggling 
thought came inte your mind, which would not go away. “It’s a little 
limited in what it can do,” you thought, “and the screen fills up 
awfully fast. What’s the point of spending the rest of my days in front 
of a flickering TV screen, rolling innumerable dice?” 

So, you dashed to a computer shop, or wrote away to one of the 
companies that advertise in the computer magazines, and spent more 
of your hard-earned cash on books of programs. 

And none of them could be fitted to your machine. 

Either the memory in the ZX80 as supplied, with just 1K RAM,was 
too small to get more than half the program in, or the program 
demanded numbers that were not integers, or called for statements 
like DATA which your ZX80 doesn’t have. Another gulp, and you 
began secretly to resent your ZX80. “I should have saved up for a 
PET,” you think. The worst moment comes when one of your friends 
drops in and after watching you roll a die or two says: “Yes, but what 
can you do with ite” 

That is where this book comes in. If you work through it, with your 
ZX80 turned on at the appropriate moments, you should learn enough 
about programming to write your own games programs. If you follow 
the advice given on “building a library” you'll also have a healthy set 
of neatly labelled cassettes with a choice of programs to please even 
your most boring friends. 

The book assumes you would like to collect a number of different 
programs that work; that you want to know how and why they work; 
and — eventually — that you want to be able to create and develop 
your own programs. The book explains how the programs were 
written, developed, and made more complex and/or fun to run, froma 
simpler “core’’ program. By following through the programming, 
feeding the games and other programs into your ZX80 and running 
them, you should learn a fair amount of BASIC without even trying. 

Before you read the book, | suggest you glance through it to get an 
overall picture of the ground it covers. The more BASIC you know, the 
further you can read into the book without plugging in your ZX80 and 
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running the programs. The book was written with the idea that you 
would input each program when you came to it. This is why, for 
example, all the HUNT THE HURKLE-type games are not together. 
You’re most unlikely to want to input six different versions of the same 
program in a row. The order of programs ts also dictated by the need 
to put the simpler ones in first. 

My thanks to Colin Hughes and Trevor Sharples for checking the 
manuscript, of course, any errors are mine. Thank you also to 
members of the National ZX80 Users Club (44 - 46 Earls Court Road, 
London, W8 6EJ) who contributed many ideas and comments on the 
Zx80. And | guess | should also acknowledge Ron Condon who | first 
met in his incarnation as editor of the computer trade weekly 
Datalink. He has a lot to answer for. After all, it was Ron who first 
awakened my addiction to computers. 


Tim Hartnell 
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New ROMI/Old ROM 


lf you’ve just bought your ZX80, and you have the standard, 
unadorned machine, ignore this section and go straight to RANDOM 
NUMBERS. If you’re not sure whether you have a 4K or an 8K ROM, 
you're almost certain to have a 4K ROM which means the programs as 
given will run exactly as listed here. This book was written primarily 
for the 1K ZX80 4K Cold’) ROM machine, which is the standard one 
advertised. Even if you have a ZX80 with the 8K (‘new’) ROM, or you 
decide to buy one in due course, the programs in this book will run 
with just two minor modifications. 

One change needed to run the programs in this book on a new ROM 
ZX80 is to change any division line (such as LET J = 7/2) into: LET J = 
INT (7/2). Make these two changes and the programs will run perfectly. 

Another feature of the new ROM that could cause problems is that 
the graphics characters are situated on different keys. The references 
in this book to thing like “shift S$” refer to the graphics which are on 
the old ROM keys. To change them for the new ROM, use the 
following list (old position followed by the new): 

shift Q, graphic 5; shift W, graphic 6; shift E, graphic 1; shift R, 
graphic 2; shift T, graphic D; shift A, graphic A; shift 8, graphic T; 
shift D, graphic 4; shift F, graphic 3; shift G, graphic S. 

You'll also find you can get the inverse of the graphics without using 
a character string (CHR§&{X)} as you need to with the old ROM. When 
you're more experienced, you will probably want to use some of the 
new ROM’s other features (especially PLOT, DRAW and PAUSE) to 
enhance the games in the book, but they will all run satisfactorily as 
they are listed, apart from the changes mentioned above. 
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Random Numbers 


Turn on your TV, plug in the ugly black power converter, and get the 
cursor (that’s the white K on a black square} down in the jleft hand 
corner of the screen. Our first program uses one of the most useful 
programming aids for games — the random number generator. 

Actually, as the manual points out, it is not a true random number 
generator, but it is close enough for our purposes. 

To generate a number between zero and, say, 10, you just input LET 
J = RND(10). You have to spell out the RND although the LET is just a 
single key stroke. If you follow up this line with the command PRINT J, 
your ZX80 will display the number (between zero and 19) which it has 
generated. Notice that when you write a program, each line must be 
numbered (with numbers between 1 and 9999). The computer executes 
each line from the lowest number to the highest. 


Try this program first: 


19. PRINT “NUMBER 3@ = PRINT J] ;“ “; Gust leave a 
GENERATOR” couple of spaces between 
20 LET J} = RND (10) the quote marks) 
49 GOTO 26 


When you run this, you'll find the screen fills up with numbers, 
between 1 and 10. The program stops {and gives you the error code 
5/30) when the screen is full. 

There are five things you can learn from this program: 


10 PRINT “NUMBER GENERATOR” 


This line starts with a line number (as | mentioned before). You can use 
any number you like (between 1 and 9999), but you'll find working in 
multiples of 19 or 2@ will give you enough room to add new lines in 
between others if you need to later. Line numbers sort themselves 
automatically into the correct order. When you ran the program, the 
ZX80 acted on the lowest numbered line (in this case 10) and obeyed 
the instruction PRINT and printed what was between the quote marks. 
Pretty simple, basic stuff. So from this line you have learned the use of 
line numbers, and of the command PRINT. 
The next line: 


26 LET J = RND (@) 


This tells the computer to assign the value generated to the integer 
variable ] (a letter, a number of letters, or a letter followed by a 
combination of letters and numbers can be an integer variable). Then 
when, in the next line, you ask the ZX80 to PRINT J, it prints the 
number which has been assigned to J. Don’t worry if you can’t 
understand this, it will become clear in due course. 
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The next line: 
30) PRINT J: 


This line tells the computer to print the number which it has assigned 
to J. The semi-colon after the J, and after the second set of quote 
marks, ensures that the ZX80 will print the values for J] one after 
another, instead of starting a new line for each one. 

Try typing 3@ PRINT ,J, Using the NEWLINE, put this into the 
program in place of the original line 30. Run the program, and you'll 
notice the numbers printed in neat little columns. The comma divides 
the screen up into four parts, and when it reads a comma, 
automatically goes to the start of the next quarter of the screen. (The 
space between the quote marks in the original program ensured there 
was a space between each number). Try running the program without 
the space, i.e. with line 30 PRINT J;. You'll find the screen fills up with 
solid numbers, all running into each other. The semi-colon tells the 
ZX80 to go on and print the next J, without leaving a space, and 
without starting a new line. 

The fourth line of our original program: 


49 GOTO 20 


The computer runs through the program in order, carries out the 
instructions in each line, and then stops. In this case, when it gets to 
the end of the program, line 4@ tells it to go back to line 20. It does so, 
then runs through the program again, and again finds the instructions 
to go back to line 20. It stops only when you run out of screen space. 

Now, you've learned that a letter, such as }, can be assigned a 
numerical value. What is known as a ‘string’ (a letter followed by a $ 
sign, like A$) can be assigned to a word or words {or any combination 
of letters, symbols and numbers, but we'll stick to words for the 
moment). 

Clear the RAM with the instruction NEW, and input the following 
program: , 


1@ PRINT “NUMBER 690 PRINT “AND TEN. PRESS 
GENERATOR” NEWLINE.” 

20 PRINT “WHAT iS YOUR 7® INPUT B$ 
NAME?” 8@ =LET J = RND (10) 

30 [INPUT A$ 90 PRINT §;7 ”; 

40 PRINT “OK, “;A$:", 1 AM 190 GOTO 8 


GOING TO WORK OUT” 

5@ PRINT “SOME RANDOM 
NUMBERS BETWEEN 
ONE” 


Try running this program. You’ll find the line 20 asks your name, and 
then accepts it in line 3@, assigning the string A$ to your name. The 
ZX80 then uses your name (A$) in the next line, line 49. 
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The other thing to note about this program is the line 6@ which tells 
you to press the NEWLINE key to continue. The string in line 7@ (B§) is 
just a way to tell the computer to stop and wait for NEWLINE to be 
pressed. This feature is a very useful one in games, and we wil! be 
using it time and time again. 

You've probably cursed the fact that your ZX80 doesn’t ‘scroll’ the 
contents of the screen upwards. It just shuts down when the screen is 
full, and gives you an error code. 

The clear screen command (CLS) is very useful here. Looking at the 
output of the program you’ve just run, you have probably realised that 
all the lines spent asking WHAT 1S YOUR NAME? and so on are wasted 
once the instruction has been followed. Add the line: 75 CLS to the 
program, and run it again. 

The CLS, you will find, cleared the screen of everything that 
preceded it on the program, but didn’t (as will become important later) 
‘forget’ what had been assigned to the string, A$. That is the computer 
still remembers your name (A$), so long as you don’t wipe the program 
with NEW or turn off the power, or go back into the ‘command mode’ 
(when you can see the whole program listed on the screen, numbers 
and all). 

It is a bit butchery to just run the program until it fills the screen and 
jams off, giving you an error message. We can let the ZX80 count how 
many times it goes around the loop (that is, how many times it 
executes the lines 80, 90 and 19@). Add the following: 


76 LET K =@ 
85 LETK =K +1 
95 IF K > 30 THEN STOP 


Now run it, you should find the program prints 31 numbers between 
@ and 19 and then stops. It does this by assigning the value of zero to 
the number variable in line 76, then adds one to K each time round (so 
the first time it is, in effect, LET K = @ + 1, the second time LET K = 1 
+ 1, the third time LET K = 2 + 1, and so on) until K is bigger than 39, 
when the computer STOPs. This counting and terminating feature is a 
very useful one. 

IF/THEN: In line 95 (FF K > 3@ THEN STOP) we used one of the 
ZX80’'s facilities to make a decision, and act on it. This JF/THEN is a 
very useful command in BASIC. The form of an IF/THEN Hine is line 
number, IF something (such as IF Z = 30, or IF A = B) followed by 
THEN (shift 3) and another command. In ZX80 basic the other 
command can be anything {such as GOTO, LET S = 2, or STOP). 

Delivery of the 8k ROM was delayed late in 1980 pending the 
development of a printer. 

Let’s get to our first real program. 
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Simple Decision Makers 


Input the following: 


19 PRINT ,“DECISION 70 INPUT Q$ 
MAKER” 89 LET J = RND (3) 
20 PRINT 90 IF J = 1 THEN 
30 PRINT PRINT ,“YES” 
49 PRINT “THINK OF A 100 IF J) = 2 THEN 
QUESTION AND” PRINT ,’NO” 
50 PRINT “PRESS NEWLINE 119 IF} = 3 THEN 
FOR A” PRINT ,“MAYBE” 
60 PRINT “DECISION ON 120 STOP 
IT” 


Run this program a few times. You'll see how the comma in lines 19, 
90, 190 and 11@ sets the words away from the left hand side of the 
screen, and how lines 2@ and 3@ (with just the command PRINT, with 
nothing following it) put a space between the printout of lines 10 and 
4g. 

Now comes the creative bit. To dress up this program, you can do at 
least three things: (1} Let the ZX80 ask for, and use your name; (2) Use 
CLS to make the presentation cleaner; and (3) Allow you more than 
one go before the screen flips back into the command mode. Try and 
amend the program (by slipping things in between the numbered lines, 
and/or by changing some lines) until you can do these three things — 
before reading on. Cover up the following program until you've had a 
go at altering the original program. 

This is just an example of how to modify the program. There are 
many, many other ways to achieve similar ends. 


10 PRINT ,“DECISION 99 SF J) = 1 THEN PRINT 
MAKER” “YES” 
20 PRINT 100 IF | = 2 THEN PRINT 
25. PRINT “WHAT IS YOUR “NO” 
NAME?” 11@ IF J = 3 THEN PRINT 
27 INPUT A$ “MAYBE” 
3@ =CLS 120 PRINT 
49 PRINT “THINK OF A 130 PRINT “ANOTHER 
QUESTION, “;A$ GO, ";A$;"2” 
5@ PRINT “PRESS NEWLINE, 140 INPUT BS 
AND | WILL” 150 IF BS = “YES” THEN 
60 PRINT “MAKE A GOTO 30 
DECISION ON IT.” 169 CLS 
79 INPUT Q$ 170 PRINT “OK, “;A$; BYE 
80 LET J = RND (G) BYE” 
180 STOP 
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Note the way the computer is asked to check if B§ = “YES” (in line 
150). If it finds that BS is equal to YES, control goes back to line 30. 
There is no need to put in a line IF B8 = “NO” THEN GOTO 160 
because the ZX80 moves on until it comes to another instruction. 

There is another refinement we could add to this program. Try and 
work out how to make the amendment before you read the program 
listing. If you decided you wanted the computer to give you two “NO” 
and two “YES” to every one “MAYBE”, how would you amend it? Try 
to work this out (changes will be needed between lines 89 and 129) 
before you read on. 

if you need five alternatives (two NO, two YES, and one MAYBE), 
you will need line 8@ to generate five random numbers. For two of 
these the computer must print NO, and so on. To save writing IF J = 1 
THEN PRINT “YES” and IF J = 2 THEN PRINT “YES”, and IF J = 3 
THEN PRINT “NO” and so on, we can use the line IF J] <3 THEN 
PRINT “YES”. 

But what about the “NO” answer? If you write, for line 100, IF J <5 
THEN PRINT “NO”, the computer will print a YES with a NO 
underneath if the number 3 or 4 is generated. You can overcome this 
with an AND statement, as follows: 


80 LET J = RND (5) 190 IF} >2 AND J <5 THEN 
99) «IF § <3 THEN PRINT PRINT “NO” 
“YES” 110 EF J = 5 THEN PRINT 
“MAYBE” 


A little later on we'll work out a more sophisticated DECISION 
MAKER program, but for now let’s do something a little more 
interesting — play Russian roulette. 
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HELLO 
’'M ZEDDY 


YOUR ZX80 


Russian 
Roulette 


The principle of the game is simple. You have a pistol with six 
chambers, only one of which contains a bullet. You spin the chamber, 
pull the trigger, and...either bang, or click. Already you are thinking 
“Aha, the random number generator, one in six.” The only major 
decision to make is how many shots you are going to have before 
ending the game. Input the following program into your ZX80, run ita 
few times, then come back to this book for a discussion on some of the 
features of it. 


10) PRINT,“RUSSIAN 100 IF G <6 THEN PRINT 
ROULETTE” “CLICK” 

20  =PRINT,“(C) HARTNELL 119 IF G = 6 THEN COTO 
1980” 149 

30 = =PRINT 120 IF J = 19 THEN COTO 

49 LETjJ = 96 160 

5@ PRINT “PRESS NEWLINE 130 IF J} <10 THEN GOTO 50 
TO FIRE” 149 PRINT “BANCG...”; 

60 INPUT T$ 15@ GOTO 140 

70 CLS 169 PRINT “YOU HAVE 

80 LET J = J +1 SURVIVED” 

99 LET G = RND (6) 170 STOP 


Notice this program uses the GOTO (in lines 110, 120, 130 and 150) 
command to either give you another ‘shot’, print BANG... to fill the 
screen, or to print YOU HAVE SURVIVED. Line 49 sets ] = @ at the 
beginning, and line 8@ adds one to it each time you run through until 
{unless you’ve shot yourself) you've been through ten times, that is 
when J = 10. Lines 120 and 13@ check the value of ] and either send 
you back to 5@ or advance to 169. Now, add the following line to the 
program and run it a few times: 


95 PRINT,G,} 
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This added line displays the number that line 99 has generated and, 
to the right, the number of the run (i.e. J) that you are on. After you’ve 
run it a few times, erase line 95. Before you read on, try to amend the 


" program (just by adding lines between the present ones) to allow the 


program to give you (a) the option not to play at all; and (b) the chance 
for subsequent games if you manage to survive. 


3@ PRINT “DO YOU WANT 34 IF A$ = “NO” THEN 
TO PLAY?” STOP 

32 INPUT A$ 

and further down: 


162 PRINT “DO YOU WANT 166 IF BS = “YES” THEN 
ANOTHER GO?” GOTO 49 
164 INPUT BS 

You may well have modified the program differently, but as long as 
it works, it doesn’t matter exactly how you do it. 

Now, the following is a very important point for the development of 
games’ programs. The best way I’ve found to work out games is to set 
up the ‘core’ of the game first (in the case of RUSSIAN ROULETTE, the 
core would be the first version of the game). Having set up this core, 
and made sure it works, | then proceed to elaborate the game to make 
it more fun to play, while making sure | don’t overload the ZX80’s tiny 
RAM. 

You may have felt that the running of the game in its present form is 
a little unsatisfactory, and that when line 95 was included (PRINT,G,J) 
it was a bit more interesting. So add the following line: 


95 PRINT “THAT WAS SHOT ”;) 


and run the program, That certainly makes it a bit more interesting. 
Before reading on, | want you to try and write a new version of line 95 
which will tell how many shots you’ve left to reach 19, rather than just 
telling you the number of the current shot. One way of doing it: 


95 PRINT 10 — J;“SHOTS TO GO” 


Now, let us have a second look at line 34. Instead of just stopping 
when the player decides not to play, why not let the ZX80 respond 
more definitely, say by printing the word CHICKEN to fill the screen. 
Try and work out how to do this. For a start, you'll have to change the 
STOP statement in line 34 into a GOTO command. 

One way of doing it: 

34 IF A$ = “NO” THEN 180 PRINT “CHICKEN...”; 
GOTO 180 181 GOTO 180 

This version prints a most interesting pattern of the word CHICKEN. 
We'll use this pattern-effect to produce a new program shortly, but for 
now, add a few more lines to the program so that it uses the player’s 
name. Once you’ve done that, and before you.read my version below, 
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try to write in a line so the ZX80 won't print ..SHOTS TO GO on the 
shot which fills the screen with BANG... This is my final version of the 


program: 

1@ PRINT ,“RUSSIAN 
ROULETTE” 

20 =PRINT ,“(C) HARTNELL 
1980” 

22 PRINT 

24 PRINT “WHAT IS YOUR 
NAME?” 

26 INPUT A$ 

27 = PRINT 

28 PRINT 

39 PRINT “DO YOU WANT 
TO PLAY, “A§$;“e”" 

32 INPUT B$ 

33 CLS 

34 IF BS = “NO” THEN 
GOTO 188 

40 LET] = @ 

5@ PRINT “PRESS NEWLINE 
TO FIRE’ 

60 INPUT T$ 

7@ CLS 

8@ LET) =J +1 

99 LET G = RND (6) 

95 PRINT A$;", “710 — 
J;“SHOTS TO GO” 

96 =~PRINT 

97 PRINT 

100 IF G <6 THEN PRINT ,, 


“ CLICK ” (with a SHIFT 
A on each side of the 
word CLICK, within the 
quote marks) 


105 
119 


120 


130 
139 


149 
150 
160 
162 
164 
165 
166 


180 


190 


PRINT 

IF G = 6 THEN GOTO 
139 (you'll see why 139, 
rather than 14@, by 
reading 139} 

IF J = 10 THEN GOTO 
160 

IF |} <10 THEN GOTO 50 
CLS (this clears the screen 
for the big BANG) 
PRINT “BANG...”; 

GOTO 140 

PRINT “YOU HAVE 
SURVIVED, “A$ 

PRINT “DO YOU WANT 
ANOTHER GO?” 

INPUT C$ 

CLS 

IF C$ = “YES” THEN 
GOTO 40 

PRINT “CHICKEN...’5 (J 
removed the STOP 
statement here so the 
following line, 199, could 
serve for a NO response 
to 162, as well as for the 
NO response to 34.} 
GOTO 189 


Now, before we leave Russian roulette games, we'll look at one final 
version that introduces you to a new command, and shows a slightly 


different conversational 


approach. SAVE your final version of 


RUSSIAN ROULETTE on cassette, then clear the memory, and input 
the following program: 


19 
15 


20 


PRINT ,“RUSSIAN 
ROULETTE (3) 

PRINT ,“(C) HARTNELL 
1980” 

PRINT 


25 


39 


PRINT “HE GUN-TOTER. 
YOU HAVE” | 

PRINT “A PISTOL WITH 
ONE BULLET [IN IT.” 
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35 PRINT “YOU WILL SPIN 130 IF J] <10 THEN GOTO 7 


THE CHAMBER” 135 CLS 
49 PRINT “AND FIRE 10 149 PRINT 
TIMES.” 145 PRINT 
45 PRINT “ARE YOU GAME 15@ PRINT ,“YOUVE 
TO PLAY?” SURVIVED.” 
5@ INPUT A$ 155 PRINT “IF YOU WANT 
55 LETJ =@ TO RISK DEATH AGAIN” 
6@ PRINT 16@ PRINT “PRESS G FOR 
65 IF A$ = “NO” THEN GO...OR S FOR STOP” 
GOTO 185 165 INPUT B$ 
7@ PRINT “PRESS NEWLINE 179 CLS 
TO FIRE” 180 IF BS = “G” THEN 
75 INPUT T$ GOTO 55 
8@ CLS 185 PRINT “COWARD...” 
85 PRINT 199 GOTO 185 
90 =PRINT 195 LETH = RNDQ) 
95 PRINT 200 IF H = 1 THEN PRINT ’$ 
100 LETJ = J +14 CLICK $” (use a ‘shift S’ in 
105 LET G = RND(6) place of the dollar signs) 
119 PRINT “SHOT 210 IF H = 2 THEN PRINT 
NUMBER “J “EMPTY CHAMBER” 
115 IF G <6 THEN GOSUB 215 RETURN 
195 229 PRINT “BANG...”; 
120 IF G = 6 THEN GOTO 225 GOTO 229 
220 
125 IF J = 10 THEN GOTO 
146 


You'll notice as you play this that an empty chamber (i.e. G 6) gives 
you either CLICK or EMPTY CHAMBER, which, as you can see, is 
generated by the lines 195 to 215. The ZX80 leaps to 195 from 115 on 
the command GOSUB 195. 

Lines 195 through to 215 make up a “subroutine”. Whenever the 
computer comes across a GOSUB command, it goes to the line 
specified, and follows on until it comes to command RETURN. The 
computer then returns to the line after the GOSUB command. The 
GOSUB/RETURN is a very useful feature. We'll be using it again. 

You will recall that when you first worked out how to get the 
computer to fill the screen with the word CHICKEN that it made quite 
an attractive pattern. We are going to look now at a slightly more 
developed form of pattern-making program, which uses the FOR/NEXT 
loop to limit the number of times the sequence of letters or spaces is 
repeated. We will be looking at the FOR/NEXT loop in detail a little 
later. 
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Pattern 
Makers 


The core of this program is simple. Feed it into your ZX80 and after 
pressing RUN, input any six of the graphical symbols, then press 
NEWLINE. 

19 INPUT A$ ° 30 PRINT A$; 
20 FORJ =1TO75 49 NEXT J 

You can run this program, which is surprisingly effective, using any 
combination of letters, numbers and symbols you like. You'll find that 
one or two spaces, instead of letters, enhance the pattern produced. 
Try a few more patterns, using spaces, letters like M and W, the $ sign 
and the numbers 6 and 9. 

Before reading on to see how | have done it, try to write around the 
core program you have to include the following features: (a) a title; (b) 
instructions; and (c) the chance to form another pattern without 
having to go back into the command mode and. press RUN again. 
Cover up my version until you've tried your own. 

One way (and there is an infinite number of ways you could have 
done it} is as follows: 


1 PRINT ,“PATTERNS” 20 FOR} =17TO75 
2 PRINT , ‘“(C) HARTNELL 30 PRINT A$; 
1980” 40 NEXT J 
3 PRINT 50 PRINT ” "; 4 spaces 
6 PRINT “PRESS ANY here) 
COMBINATION OF 6” 6@ PRINT “DO YOU WANT 
7 PRINT “LETTERS, ANOTHER GO?” 
SYMBOLS AND 70 INPUT B$ 
SPACES...” 75 CLS 
& PRINT 80 IF BS = “YES” THEN 
9 PRINT “.AND 1 WILL GOTO 6 
PRINT A PATTERN” 99 PRINT “OK. SEE YOU 
19 INPUT A$ LATER, ARTIST” 
15 CLS 190 STOP 
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This is quite an addictive program. The simplest combination of 
symbols (like three of shift W, two of shift Q and a space) produce 
almost three-dimensional patterns. If you set this program up for one 
of your friends to try, be ready to wait a long, long time before you 
next have a go. 


Building a Library 


| hope you’ve been SAVEing the programs you create as you go 
along. There is little point in having to input the whole program by 
hand every time you want to run it. 

Resist the temptation to put all your programs on one cassette, one 
program after another. The frustration you'll experience searching 
through the tape (even if you’ve identified each program with a voice 
label) to find a particular program is just not worth the trouble. Go to 
your computer shop, or buy by mail from one of the many companies 
that advertise in the personal computing magazines, and get a set of 
C-12 cassettes. Put just one program on each cassette, with two copies 
of each program on each side, just in case something happens to one 
of the copies and you find it difficult, or impossible, to LOAD. 

Write the name of the program on the cassette, and on the 
cardboard insert. You'll find this makes it very easy to find the 
program you want, and as your library builds, it will give you quite a 
feeling of accomplishment to see all those programs ranked side by 
side. It will impress your friends as well, who will believe after visiting 
you, and playing with your ZX80, that you’re some kind of natural 
computer genius (which you probably are). 


Review 


Let’s review the ground we’ve covered so far; 


— The use of the random — The assignment statement 
number generator LET J LET 
= RND(X) — The use of , and; in 

-— The output statement PRINT statements 
PRINT 
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— The control statement — How to develop a game 


IF...THEN... program from the core of 

— The use of strings (A$), it, to make it more 
including the use of a elaborate and interesting 
string to stop a program — Subroutines (with the 
until NEWLINE is pressed commands GOSUB and 

— The statement CLS RETURN) 

~~ The symbols < and > — How the string, 

— The statement AND FOR...TO.../NEXT, and 

— The control statement PRINT can be used to 
STOP generate patterns. 


~ The control statement 
FOR...TO/NEXT 
— The form and use of a 
“counter” to limit the 
number of times part of a 
program is run through 
We've come quite a long way in a short time. Make sure you 
understand all the preceding materiat before going on. 


For/Next 


You'll remember when we wrote the first PATTERN-MAKER 
program, we used (in line 20) FOR J] = 1 TO 75, and {in line 4Q) NEXT J. 
We will now have a look at the use of FOR/NEXT loops in some detail. 

First, input the following program: 

19 LET) = @ 49 LETJ =j+4+1 
20 PRINT “J = “J 50 GOTO 290 
30 «IF J = 10 THEN STOP 

Run it a few times, then clear the RAM and input the following 
program, which uses the FOR/NEXT loop: 
19 FOR) =1TO10 
20 PRINT “j = J 
3@ NEXT } . 

You can see that running this program produces exactly the same 
result as running the preceding one, although this second program is 
only three lines long, two shorter than the first program. It is not 
always possible or desirable to use a FOR/NEXT loop as a “counter”, 
but because it uses less memory than the LET J} = Q@/LET J = J + 1 
approach, it should always be investigated. 
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When you run a program with a FOR/NEXT loop, the computer goes 
from line to line after the FOR statement until it finds the NEXT 
command, when it reverts to the FOR line. You can place one (or more) 
FOR/NEXT loops inside another. Add the following lines to the current 
program: 


22 FORK =17T02 
25 PRINT K 
27. NEXT K 


Run this. It is important to make sure that each loop nests neatly 
within each other loop. That is, if you placed the NEXT K command 
after the NEXT J, so the loops cross, you get a rather unsatisfactory 
result. Try it, by renumbering line 27 as line 35 (making sure you delete 
the “old” line 27). 

Finally, here is a remarkably effective double FOR/NEXT loop 
program: 


5 PRINT ,“YOUR NAME IN 30 FORS = 1TO99 
LIGHTS” 40 PRINT “(shift S)’; 

10 FORJ =1TO6 50 NEXT S 

20 =PRINT ,“(put your first 60 NEXT J 


name here)’; 


This is a good program to run for your more egocentric friends. 


The computer can be used to simulate a huge variety of things, from 
the growth of plants to the effects of bumps on the road on 
motorcycle suspension. We are going to look at a more homely 
example of simulation: flipping a coin. 


Zeddy page 18 


Input the following program, and run it: 


10 PRINT “COIN FLIP — 1” 49 IF | = 2 THEN PRINT 
20 LET J =R&RNDxf2) “TAILS” 
3@ IF J = 1 THEN PRINT 50 STOP 

“HEADS” 

Once you’ve run this a few times, amend the program as follows: 
19 PRINT, “COIN FLIP — 2” 50 PRINT “TO FLIP AGAIN 
20 =6LET J) = RND() PRESS F” 

30 IF J = 1 THEN PRINT 60 INPUT A$ 

“HEADS” 70 «IFAS = “F” THEN GOTO 
49 IF J = 2 THEN PRINT 20 

“TAILS” 80 STOP 


You can run this until the screen is full. Although there will probably 
be an imbalance in the numbers of HEADS and TAILS, the longer you 
run the program, the more the ratio of each should approach 1:1, If we 
knew how many times we had flipped the coin, it would make it easier 
to work out how many HEADS and how many TAILS the program had 
printed. It is fairly simple to amend the program to do this. Try it 
yourself, before looking at my version. 


1@ PRINT “COIN FLIP — 3” 7@ LET K = K +4 
20 LETK =1 80 PRINT “TO FLIP AGAIN 
3@ LET J = RND (2) PRESS F” 
49 PRINT “FLIP NUMBER 99 INPUT A$ 

KR ASS 190 IF A$ = “F’ THEN GOTO 
50 IF} = 1 THEN PRINT 30 

“HEADS” 119 STOP 
60 IF J = 2 THEN PRINT 

“TAILS” 


Once you've run this a few times, and added up the HEADS and 
TAILS, and then worked out what the ratio of HEADS to TAILS is, you 
will probably have realised the ZX80 can do all the work — flip the 
coin, count the heads and tails, and then manipulate this result as you 
choose, Let’s try a more complex program: 


10 PRINT “COIN FLIP — 4” 99 «oIF J) = 1 THEN LETH = 

20 LETH = @ Her | 

30 «LETT = 90 190 IF} = 2 THEN LETT = 

40 LETK = 1 Peet 

50 LET j = RND() 110 PRINT “OUT OF 

60 PRINT “FLIP K, FLIPS YOU HAVE” 
NUMBER “7K; IS“; 120 PRINT H; “HEADS 

7@ IF J = 1 THEN PRINT AND “;T;'" TAILS” 
“HEADS” 130 LETK =K +14 

80 IF J = 2 THEN PRINT 149 PRINT “PRESS F TO FLIP 
“TAILS” AGAIN” 
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150 INPUT A$ 180 PRINT “THANKS FOR 


160 CLS PLAYING. BYE” 
170 IF AS = “F” THEN GOTO 199 STOP 
50 


You will find that adding PRINT statements for lines 105, 196 and 
197 will make the program, when running, easier to read. Now, we 
could use a FOR/NEXT loop to tell the ZX80 in advance how many 
times we wanted to flip the coin, and then we could leave it to do the 
work. For practice, I'd like you to produce such a program, which also 
asks the player at the beginning how many times he or she wishes to 
flip the coin. | am not going to give you a sample version of this 
because | think by now you should be able to write such a program 
easily. What 1 am going to give you though is another version of the 
program, that gives approximate percentage breakdowns of heads and 
tails. They are approximate because the ZX80, as you know, rounds 
numbers to the nearest whole integer. First write your program using 
the FOR/NEXT loop, SAVE it, and then have a look at my final COIN 
FLIP program. 


1@ PRINT ,“FLIP-A-COIN” 120 PRINT “OUT OF"; 
15. PRINT ,/(C) HARTNELL K;“ FLIPS YOU HAVE” 
1980” 13@ PRINT “APPROX. ”, 
20 LETH = B,” PER CENT TAILS” 
306 «LETT =9 149 PRINT “AND ""A;" PER 
49 LETK =1 CENT HEADS” 
50 LET } = RNDQ) 142) PRINT 
55 PRINT 147, PRINT 
57 PRINT 15Q@ PRINT ,“PRESS F TO FLIP 
68 PRINT “FLIP AGAIN” 
NUMBER ";K;" 1S. 155 LETK = K +1 
76 IF J = 1 THEN PRINT 160 INPUT A$ 
“HEADS” : 170 CLS 
80 IF J = 2 THEN PRINT 175 IF A$ = “F’ THEN GOTO 
“TAILS” 50 
99 IF} = 1 THEN LETH = 1890 IF K = 2 THEN GOTO 
H+1 195 
100 IF J = 2 THEN LETT = 181 PRINT 
As ae 182 PRINT 
195 PRINT 185 PRINT “YOU FLIPPED 
196 PRINT THE COIN “5K --1; 
107) PRINT ” TIMES: ~” 
110 IF K = 1 THEN GOTO 186 PRINT 
150 187) PRINT,“HAD “A; PER 
111 LET A = H*100/K CENT HEADS” 
112 LET B = T*100/K 188 PRINT 


113 IFA + B< 100 THEN 
LETA=A+1 
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189 PRINT ,“AND ";B;" PER 193) PRINT 


CENT TAILS” 194 PRINT 
190 PRINT 195 PRINT “THANKS FOR 
191. PRINT PLAYING. BYE” 
192.) PRINT 200 STOP 


There are a few points you can learn from examining this program. 
Up to line 109, there is nothing new. Line 110 (IF K = 1 THEN GOTO 
150) bypasses all the percentage computation, because there is no 
need for it if you have only flipped once. Lines 111 and 112 multiply 
the numbers of heads and tails by 100, then divide by the total number 
of flips. Because the ZX80 rounds off number when dividing, it is best 
to get the number as high as possible before rounding off. If line 111 
was changed to: LET A = (H/K)*19@ it would produce far less accurate 
results. Try it and see what happens. 

Line 113 adds the two “percentages” together, and if they equal 99 
(which will happen pretty often) 1 is added to the HEADS’ percentage, 
just to make the two percentages add up to 100. Line 180 (IF K = 2 
THEN GOTO 195) is used if the player decides to stop after two flips. 
The information given by lines 185 to 189 is only of interest if the coin 
has been tossed three or more times. Line 195 is just a friendly way of 
ending. Many times, when you write a program, you'll use nearly all 
the RAM just for the program, so you will not have room for niceties 
like goodbyes. However, whenever you have room in the memory, it is 
a good idea to make the program more “user-friendly” and make the 
ZX80 “conversation” as natural as possible. 


Decision Maker — Mark 11 


One of the first programs we developed was a simple decision 
maker. Let us look now at the more complex program to make 
decisions. This program will show how strings can be used by the ZX80 
to form complete sentences, and will also demonstrate a memory- 
saving way of using the random number generator. Input the following 
program: 


19 PRINT ,“DECISION 20 INPUT A$ 
MAKER — 2” 22 CLS 

11) PRINT ,“(C} HARTNELL 25. PRINT A$)", | AM HERE 
1980” TO HELP YOU” 

12.) PRINT 26 PRINT ,“REACH A 

15. PRINT “HI, WHAT IS DECISION” 
YOUR NAME?” 27 PRINT 


Zeddy page 21 


28 PRINT “JUST COMPLETE 300 PRINT “YOU MUST BE 


THE FOLLOWING” CRAZY, ”;A$;", TO THINK 
29° PRINT “SENTENCE YOU MIGHT ”;B$ 
(WITHOUT USING THE” 395 GOTO 600 
30 PRINT “WORDS |, ME 490 PRINT “GEE, “[A$;", ITS 
OR MINE)” A TOSSUP WHETHER 
31. PRINT “COMPLETE THIS: YOU ““B$;" OR NOT” 
SHOULD 1...” 405 GOTO 600 
32. INPUT BS 690 PRINT 
33. CLS 610 PRINT 
35 LET J = RND (4) 620 PRINT “ANOTHER 
36 =GOTO 100*) (this is the DECISION, “A$?” 
memory-saving trick) 630 INPUT C$ 
190 PRINT “IF 1 WERE 649 CLS 
YOU, “A$; ", | WOULD 650 IF C$ = “YES” THEN 
NOT’B$ GOTO 27 
195 GOTO 600 66@ PRINT “THANKS FOR 
200 PRINT “SURE, "A$; LETTING ME” 
“ BS 679 PRINT “HELP YOU, ”;A$ 
205 GOTO 600 689 STOP 


‘S Number 
j beg, e 
oa. — ss Crunching 


The programs we’ve worked on so far have ignored the great, and 
fundamental ability the ZX80 has to work with numbers. 
Input this program into your computer: 


1@ PRINT “MATHS 20 INPUT A 
DEMONSTRATION” 25 PRINT ,“A SECOND 

15. PRINT “GIVE ME A NUMBER, PLEASE” 
NUMBER” 3@ INPUT B 
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35 PRINT “AND ONE 5@ PRINT A;“MULTIPLIED 

MORE” BY ”:B;", DIVIDED BY” 
40 INPUT C 55 PRINT C;"’ EQUALS "°K 
45 LET K = A*B/C 

Run this through a few times, with different values for A, B and C. 
Notice how, in lines 50 and 55, when using PRINT, the ZX80 substitutes 
the values assigned to A, B and C. It prints the number rather than the 
letter. 

Now, change lines 45, 50 and 55 as follows: 

45 LETK = (A + 59 PRINT K 
C)(B+C~A) 55 STOP 

Run this a few times. Use numbers less than 100 to remove the risk 
of K being greater than 32767 or less than ~- 32768 (which will stop the 
program, giving you error code 6). 

We can use a program of this type to do practically any maths 
problem, no matter how complex, so long as the numbers involved do 
not exceed the limits given above, and decimal places are not 
important (the ZX80 works only on whole numbers, integers) or, if they 
are, a subroutine is used to generate them. We'll use the basic 
mathematical ability of the ZX80 to produce a rather interesting 
demonstration program you can run next time you have a couple of 
friends around. 


1@  PRINT,”“NUMBER 125 INPUT D$ 
JUGGLE” 130 CLS 
39 PRINT “NAME OF 135 PRINT A$;, “SUBTRACT 
PLAYER?” SEVEN” 
40 INPUT A$ 149 PRINT “AND TYPE IN 
65 CLS THE RESULT” 
70 PRINT A$", THINK OF A 145 INPUT A 
NUMBER AND” 15@ CLS 
75. PRINT “DOUBLE IT” 175 LET K = (A + 2}2 
95 INPUT C$ 185 PRINT “YOUR | 
100 CLS NUMBER, ”; 
120 PRINT A$;", ADD FIVE” AS,", WAS “SK 


Now that did not, perhaps, seem very startling, although it is fairly 
impressive the first time you try it on someone. Note how the strings 
C$ and DS were used to stop the program until you pressed NEWLINE, 
how CLS was used to clear the screen after each instruction, and how 
the final line (185) used the name string (A$) and the assigned variable 
(K) to print out your answer. 

Before you read on, work out a way of letting the program give you 
the chance to have another go. Type your version in at the end of the 
program, and see if it works. One way would be as follows: 


200 PRINT “ANOTHER GQ?” 215 IF Z$8 = “YES” THEN 
23@ STOP 
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Once you’ve run through this program a few more times, you're 
probably pretty bored with it. Remember that a computer can, within 
the limits of its memory, store a great deal more information than just 
one simple mathematical manipulation. This game program becomes 
a great deal more interesting when you interweave a second set of 
instructions into the first, so a second player can “think of a number” 
and so on, at the same time as the first person is doing so. I'll list the 
whole program. Apart from a word to be added to line 30, and some 
possible differences in the lines 200 and beyond {the lines that offered 
you a second run), you should be able to add the lines from the 
following program in between those you already have in the ZX80’s 
memory. 


1@ PRINT ,“NUMBER 135 PRINT A$;", SUBTRACT 
JUGGLE” SEVEN” 

29 =PRINT ,“(C) HARTNELL 146 PRINT “AND TYPE IN 
1980” THE RESULT” 

25 PRINT 145 INPUT A 

30 PRINT “NAME OF FIRST 15@ CLS 
PLAYER?” 155 PRINT B$;”, | WANT 

4Q INPUT A$ YOUR TO SUBTRACT” 

45 PRINT 160 PRINT “FOUR THEN 

50 PRINT “NAME OF TYPE IN YOUR RESULT” 
SECOND PLAYER?” 165 INPUT B 

60 INPUT BS 170 CLS 

65 CLS 175 LET K = (A + 2)/2 

7@ PRINT A$; THINK OF A 180 LET L = (B + 4)/3) ~ 6 
NUMBER AND” 185 PRINT “YOUR 

75 PRINT ,“DOUBLE IT” NUMBER, ”;A$; 

80 PRINT “ WAS “5K 

85 PRINT BS", THINK OF A 190 PRINT 
NUMBER AS WELL” 195 PRINT “AND YOURS, ”; 

90 PRINT “AND ADD SIX BS", WAS “5L 
TO 1T” 200 PRINT “ANOTHER GO?” 

95 INPUT C$ 205 INPUT Z$ 

100 CLS 210 CLS 

105 PRINT BS", | WANT YOU 215 tF Z$ = “YES” THEN 

© TO MULTIPLY YOUR” GOTO 65 

119 PRINT “NUMBER BY 220 PRINT “OK, “;A$" AND “; 
THREE” B$;", THANKS” 

115. PRINT 225) PRINT “FOR PLAYING. 

12@ PRINT A$;", ADD FIVE” BYE BYE.” 

125 INPUT D$ 230 STOP 

13@ CLS 


Try this out with a couple of friends, and watch their reaction. 
| want to introduce you now to a little trick which can add a lot to 
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games programs (even though it will probably horrify computer 
purists). The ZX80 works very, very quickly. So quickly, in fact, that its 
responses appear to be instantaneous. Although this is fine for 
“serious” use of a computer, it detracts in some measure from games. 
You’ll find that games are more interesting if the computer appears to 
be “thinking” between moves, rather than responding as soon as you 
hit NEWLINE. So, we can introduce a subroutine which will slow 
things down a bit. 

Add the following: 
249 FOR J = 1 TO 200 255 NEXT J 
250 CLS 260 .RETURN 

Now, go through the program, and change all the lines which have 
the instruction CLS to GOSUB 24@ Now, run the program again. 
Notice how much more effective this seems, with just the right delay 
for the computer to “think and reach a decision”. You could have 
other numbers in line 24Q. Try it as FOR J] = 1 TO 5@@. You'll find this 
delay is far too long. So long that you'll get irritated. Using 300 also 
produces too long a delay. To me, 200 seems about right. You can use 
the subroutine delay in any games you like. As an exercise, try adding 
it to an earlier program, like RUSSIAN ROULETTE, and seeing if this 
adds to the playing of the game. 

The general form of a “game delay”: 
Line Number FOR X =n, TOn, 
Line Number CLS 
Line Number NEXT X 
Line Number RETURN (if the delay is a subroutine). 


As a general rule, you can insert a delay subroutine whenever you 
would normally use the CLS instruction. When you're feeding in a 
program that is likely to come pretty close to using all the ZX80’s 
RAM, do not input the delay subroutine until you've got the rest of the 
program in. Use a CLS line instead, and if and when you find there is 
enough memory left for a delay subroutine, put that in. 


Writing a Program — 
Some General Thoughts 


Most books on programming suggest you start by drawing up a 
“flowchart” — a pretty combination of circles, diamonds and slanting 
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rectangles — which sets out the path and operations the computer 
will follow to execute a program. In theory, this is fine. But in practice, 
especially when working with a relatively small memory such as in the 
ZX80, the time and trouble involved is probably not worth it. 

It is, however, essential to know exactly what you want the 
computer to do before you start creating a new program, even if 
you're not quite sure how you are going to get the ZX80 to carry out 
the task. 

Sometimes a rough sort of flowchart — just writing down the main 
steps the ZX80 will take and then linking these by lines and loops — 
will help to clarify your thinking. This is also a good way of spotting 
potential problems, like the danger of setting up infinite loops, or of 
not specifying the nature of the computer's decisions exactly. 

For what it’s worth, | work as follows: 

Having worked out the general idea for a game (like “‘player thinks of 
an animal, computer tries to guess which animal”) | then just think 
about the idea for a while. | might not write anything down for even a 
day or more. Usually, this “thinking time” allows me to work out 
roughly how the core of the program is going to look. Next, on paper, | 
write down this core, starting with line number 10@. This ensures there 
is plenty of room at the start of the program to add a title and 
instructions, define constants, set up arrays and the like. 

The next stage is to feed the rough program into the ZX80 and see if 
it does what it is meant to do. Often a far more elegant method than 
the first rough version is found at the keyboard, but this would 
probably not have been discovered if the written version was not tried 
first. 

Occasionally, if | get a clear idea for a program and | cannot get to 
the ZX80, | will write out the entire program by hand in advance. 
Sometimes (like the race game LONDON TO GLASGOW), a program 
works almost perfectly the first time. Other programs (such as 
MASTERMIND) turned out to be near disasters, so the final version 
bears little more resemblance than title and intention to the original, 
hand-written version. If you’re working on a fairly simple game, or are 
adapting from a magazine or book, it is just as well to work directly on 
the ZX80, but keep a notebook handy to record things like the fact 
that, for example, string A$ is for the player’s name. 

If you're writing a program direct on the keyboard, and you want to 
add a subroutine which will eventually be at the end of the rest of the 
program, give it a very big number (like 50@0). It can easily be 
renumbered afterwards (and the GOSUB command changed). This is 
simpler, and more elegant, as well as using less memory, than having 
to use a GOTO to jump over a subroutine which has been given too 
low a line number. 

if there is a phrase that you'll need the computer to print at several 
parts of the program, such as ‘“THE SCORE AT THIS POINT IS”, assign 
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a string to this phrase as soon as you realise you're going to have to 
place the line in several different places in the program. A lot less 
memory is involved in the line PRINT B$ appearing six times, than in 
six of PRINT “THE SCORE AT THIS POINT IS’. if the information to 
be included several times is longer than one line, a subroutine is 
probably the most memory-efficient device to use. Later on this book 
looks at a program which makes use of a large number of strings for 
phrases which are used over and over again (LONDON TO CLASGOW) 


and when you come to.the game, you'll see how efficient a process 
this can be. 


Extra-Sensory 
Perception 


The next program we will look at uses the ZX80’s “greater than” and 
“less than” facilities to compare two numbers, and then make a 
decision on the basis of whether one number is less than, or greater. 
than, the other. This program also makes use of many of the things 
we've covered so far, including the IF...THEN, the counter and the 
random number generator. 

Input the following program: 


10 PRINT “GUESS MY 75 IF J = A THEN GOTO 
NUMBER” 105 
45 PRINT “WHAT NUMBER, 80 IF A<J THEN PRINT 
BETWEEN 1 AND 1090, “HIGHER” 
AM | THINKING OF?” 85 IF A>} THEN PRINT 
50 LET) = RND (99) “LOWER” 
55 LETS = @ 99 IFS <5 THEN GOTO 60 
60 LETS =S +1 95 IFS = 5 THEN GOTO 
65 INPUT A 130 
70 PRINT A 
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105 


110 
130 


149 


Notice how the core of the program 


PRINT “YOU ARE RIGHT. 


| WAS THINKING OF °%j 
GOTO 140 

PRINT “TIME 1S UP. | 
WAS THINKING OF “;] 
PRINT “DO YOU WANT 
ANOTHER GO?” 


145 
150 
155 


160 


decision on what the ZX80 is to do next. 


This program, in its present form, has 


INPUT H$ 

CLS 

IF HS = “YES” THEN 
GOTO 25 

STOP 


(lines 50 to 95) make the 


only used up a part of the 


ZX80’s memory. It is possible to dress the program up a bit, by giving 
the computer your name, and — as you'll see — giving it the ability to 
award the player a random payoff if the number is guessed correctly. 
Try this new form, Some of the original program remains, but certain 
lines have to be replaced, and others added. 


10 
15 


20 
25 
30 


35 
40 
45 


59 
55 
60 
65 
70) 
75 


89 


85 


90 
95 


PRINT ,“GUESS MY 
NUMBER” 

PRINT ,“(C) HARTNELL 
1980” 

PRINT 

PRINT 

PRINT “HE, WHAT IS 
YOUR NAME?” 

INPUT A$ 

CLS 

PRINT “WHAT NUMBER, 
BETWEEN 1 AND 149, 
AM 1 THINKING 

OF, “A$?” 

LET J) = RND (99) 
LETS = @ 

LETS =S +1 

INPUT A 

PRINT |,A 

IF} = A THEN GOTO 
100 (note change from 
105) 

IF A < J THEN PRINT 
“HIGHER” 

tF A >] THEN PRINT 
“LOWER” 

IFS <5 THEN GOTO 60 
IFS = 5 THEN GOTO 
130 


100 
105 


110 


415 
120 
125 
130 
135 


149 
145 


150 
155 
160 
165 


170 


LET K = RND GQ) 
PRINT “YES, | WAS 
THINKING OF 7)". 1 
HEREBY AWARD YOU 
THE TITLE OF”; 

IF K = 7 THEN PRINT 
“ SMART ALEC OF THE 
YEAR, “A$ 

IF K = 2 THEN PRINT 
“ MASTER OF ESP, ;A$ 
IF K = 3 THEN PRINT 
“JERK OF THE 
KEYBOARD, ”;A$ 
COTO 140 

PRINT “YOU ARE 
STUPID, “5A$;". | WAS” 
PRINT ,“THINKING OF 
wa 

PRINT 

PRINT “DO YOU WANT 
ANOTHER GO?” 
INPUT N$ 

CLS 

IF N$ = “YES” THEN 
GOTO 45 


PRINT “THANKS FOR 
PLAYING, “;A$ 
STOP 


When you run this program, you'll find the lines 195 to 120 wrap 
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around to the following line when printing. This is not a good feature. 
As an exercise, try and rewrite this section so the lines print separately, 
so you do not run the risk of having a word cut in half, with one half on 
one line, and the next on the other. (Hint: you'll need two more GOTO 
140 instructions). 


Kill the 


Chopper 


It is possible to use a very similar core to produce what appears to 


be a completely different program. Input the following: 


10 


20 
30 
4g 


PRINT “CHOPPER — (C} 
HARTNELL 1980” 

PRINT 

PRINT 

PRINT “A DEADLY 
CHOPPER IS HIDING” 
PRINT “BEHIND 1 OF 16 
TREES” 

PRINT 

PRINT 

PRINT “YOU HAVE ONLY 
6 SHOTS. OK?” 

INPUT A$ 

CLS 

LET GCG = § 

LET } = RND (16) 
PRINT ,, “00” 

PRINT, “(shift A twice, 
shift G once, shift A 
twice)’ 


95 
100 
105 
110 
115 
120 
125 


130 
135 


140 
145 
150 
155 


PRINT,,“(shift Q, space, 
shift G, space, shift Q)’ 
PRINT,,“(shift Q, three 
spaces, shift Q)”’ 
PRINT,,(shift Q five 
times)” 

PRINT,,“(space, shift A, 
space, shift A)’ 

PRINT ~ 

PRINT 

PRINT “GUESS THE 
NUMBER OF THE TREE” 
PRINT 

PRINT “YOU WANT TO 
SHOOT AT” 

LETG =G+i1 
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169 IF G = 6 THEN GOTO 225 PRINT “ 0 @after the two 


195 zeros, space, two shift A, 
165 PRINT “YOU MISSED, ”; space, shift W, space, 
6 — G;” TO GO” shift Q)”’ 
17@ PRINT 230 PRINT“(three spaces, two 
175 PRINT shift A, seven spaces, shift 
180 IF M<J THEN PRINT D, space, shift DY’ 
“TRY TO THE RIGHT” 235 PRINT 
185 IF M>jJ THEN PRINT 249 PRINT 
“TRY TO THE LEFT” 245 PRINT 
199 IF G <6 THEN COTO 85 25@ PRINT “PRESS 2 FOR 
195 PRINT ANOTHER GO” 
“AAAAAAAAARGHH .....” 255 PRINT “OR 4 TO 
200 PRINT CHICKEN OUT” 
205 PRINT 260 INPUT T 
219 PRINT “HE WAS BEHIND 265 IFT = 2 THEN GOTO 70 
TREE NUMBER “;} 270 CLS 
215 STOP 275 PRINT “CHICKEN” 
229 PRINT ,“GOT HIM” 280 STOP 


The idiotic appearance of the “chopper” was chosen at random. (It 
was named after my dog.) Make up your own name and appearance 
for your beastie (making sure its “dead” version looks vaguely like a 
deflated version of the live creature). You can also alter the value of J 
(the number of trees) and/or G (the number of shots you get before 
being killed). 

This framework can also be used for, say, vultures hiding in nests, 
poisonous snakes in holes, or even unfriendly aliens in space, lurking 
behind asteroids. The “conversation” parts of the program can also be 
altered to what ever form you choose. 

A little gimmick you can add to this {and any other program you 
like, assuming you have enough money for it) is to get the program to 
ask the player’s name. You work out a subroutine which ensures the 
computer will only play with you (or with people fortunate enough the 
share your name). If any other name is fed in when the ZX80 asks who 
is playing, it goes straight to STOP. As an exercise, work out such a 
subroutine and add it to your version of CHOPPER. 
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Days of 
Our Lives 


Let’s go back now to number-crunching, and have a look at a 
program which gives interesting (and sometimes scary or absurd) 
information on how long the player has to live. A little later on in this 
book is a program designed to give a proper look at life expectancy, 
but that program is a little more complicated. For now, this program 
— DAYS OF OUR LIVES — produces a pretty good demonstration of 
your ZX80, and the less mathematical of your friends will be 
convinced, yet again, that you are some kind of genius. 

What the program does, in essence, is work out approximately how 
old the player is in days, and compares this with average life 
expectancy (67142 years for males, 74% for females). It also assumes 
the player sleeps eight hours a night. Input the following program and 
run through it a few times. Then read the discussion that follows the 
program listing. 


10 PRINT “DAYS OF OUR 65 INPUT A 
LIVES” 70 PRINT ,“AND MONTHS?” 
15 PRINT “(C) HARTNELL 75 INPUT B : 
1980” 80 LET X = 365*A + 30*B 
20 PRINT 85 CLS 
25 PRINT “HI, WHAT IS 99 PRINT “YOU ARE “5X; 
YOUR NAME?” ” DAYS OLD, “A$ 
30 INPUT A$ 95 INPUT C$ 
35 CLS 190 PRINT ,“ARE YOU 
40 PRINT “OK, “:A$;", LETS FEMALE?” 
WORK OUT SOME” 195 INPUT D$ 
45 PRINT “INTERESTING 119 CLS 
THINGS ABOUT YOU” 115 IF D$ = “YES” THEN 
50 INPUT BS GOTO 130 
55 CLS 120 LET Y = 24637 — X 
69 PRINT “HOW OLD ARE 125 GOTO 135 
YOU IN YEARS?” 130 LET Y = 27192 — X 
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135 PRINT A$", YOU 180 INPUT G$ 


HAVE ”;Y;" DAYS TO 185 CLS 
LIVE — BASED ON 790 PRINT “IS THERE 
STATISTICS” ANYONE ELSE THERE 
149 INPUT E$ WHO” 
145 CLS 195 PRINT “WOULD LIKE A 
150 PRINT “YOU HAVE GO, “A$,” 
SLEPT FOR ABOUT”;X/3 200 INPUT H$ 
155 PRINT ,“DAYS SO FAR” 219 IF HS = “YES” THEN 
160 INPUT F$ GOTO 25 
165 CLS 215 PRINT “OK BYE, ”;A$ 


179 PRINT “AND WILL SLEEP 22@ STOP 
FOR ABOUT’;Y/21 

175 PRINT “WEEKS OF YOUR 
REMAINING LIFE” 


- If you were thinking about what you were feeding into the ZX80, 
you probably have a pretty good idea of what each line and command 
was for, but, if not, look at it on your screen and follow through this 
next section, line by line with your program. 

First of all, of course, the program got your name (A$), then stopped 
at line 5@ waiting for you to press NEWLINE in order for the program 
to continue (and clear the screen at line 55). This stopping of the 
program, as you learned earlier, does not do anything, but makes the 
program much more interesting to run than supplying all the 
information at once. 

The program obtained your age in years (A) and months (B), then 
worked out what this was in days (line 80, which assumed there were 
30 days in a month). Next the ZX80, in line 90, told you what this figure 
was (X)}. The question in line 1099 — ARE YOU FEMALE? — is needed 
because males and females have different life expectancies. If D$ (the 
answer to the line 190 question) is YES, the computer goes to line 139, 
where it subtracts your age in days from the life expectancy (74% 
years, converted to days) for females born after 1961 (it is only half a 
year less for females born 1951 — 1960). If the answer is not YES, the 
computer moves to the next line (120) and subtracts your age in days 
from 24,637 days, the life expectancy for males born after 1960 (again, 
it is half a year less for males born 1951 — 1960). 

Line 135 prints how many days after are left. Lines 159 and 155 give 
the number of days slept so far (your age in days, divided by three), 
assuming you sleep eight hours a night. Then the ZX80 takes your 
remaining expected days {Y), divides this figure by three (to get the 
days spent in sleep) and then divides this by seven to convert this 
figure to weeks. Actually, as you can see, the program simply divides 
by 21 (i.e. 3 x 7). 

Lines 199 to 210 ask if someone else wants a go, and if so, goes right 
back to line 25, where the string Ag is ready to be assigned to the new 
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name. If there is no-one else to play the ZX80 proceeds to the end of 
the program. 

If you feel like experimenting, there is no reason to stick with the 
program as I’ve written it. Let it ask, for example, if the player is male 
(changes lines 199 to 13). Instead of the somewhat unimaginative 
farewell (line 215) you might‘wish to put in some mournful line like: 
WELL, A$, | GUESS YOU’D BETTER RUN OFF AND MAKE THE MOST 
OF THE Y/30 MONTHS YOU HAVE LEFT TO LIVE. 

You could also, of course, add a delay subroutine where CLS 
appears in the program (lines 35, 55, 85, 119, 145, 165, 185 and 205). By 
all means experiment with the program, and put your own personal 
stamp on it. By doing this, you'll gain far more knowledge about 
programming than you will just by feeding in the programs in this 
book, line for line, and then leaving them this way. 

If you'd like to work out a whole new program based on the core of 
this program, feed the following program: into your ZX80, and then 
work around it as you choose. 


19 PRINT “HOW OLD ARE 140 PRINT “HAVE 
YOU IN YEARS?” ABOUT’;Y;“DAYS TO 
20 INPUTA LIVE,” 
30 PRINT, “AND 159 PRINT “BASED ON 
MONTHS?” STATISTICS” 
49 INPUT B 160 PRINT “YOU HAVE 
50 LET X = 365*A + 30*B SLEPT FOR ABOUT”;X/3 
60 PRINT “ARE YOU 170 PRINT “DAYS SO FAR, 
FEMALE?” AND WILL SLEEP” 
79 INPUT A$ 180 PRINT “FOR 
89 CLS ABOUT";Y/21;"WEEKS 
90 IF A$ = “YES” THEN OF” 
GOTO 120 190 PRINT “YOUR 
100 LET Y = 24637 — X REMAINING LIFE” 
119 GOTO 130 200 STOP 


129 LET Y = 27192 — X 

139 PRINT “YOU 
ARE>X;“DAYS OLD 
AND” 
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Toying with 
rine? (We the Muse 


To make a change from working with numbers, here is a program 
that — after a fashion — writes poetry. Most of the poems it comes up 
with are pretty awful, but from time to time you'll get a real gem. And 
even the worst efforts of the ZX80 are not as bad as some of the worst 
modern poetry published today. 

The heart of this program is our old friend the random number 
generator. It also makes use of the memory-saving device of linking 
the number generated to a subroutine. Input the program as it appears 
below, and run it several times. Then read the notes that follow the 
listing. (Note that there is a space just inside the quote marks in the 
“seed-phrase” lines following the command PRINT.) 


1 PRINT , “SEASIDE 70 PRINT “ SEAGULLS” 
POETRY” 75 RETURN 

2 PRINT , “(C) HARTNELL 80 PRINT “ WAVES”; 
1980” 85 RETURN 

3. PRINT 99 PRINT “ ROCKS”; 

4 — PRINT 95 RETURN 

5 PRINT “PRESS NEWLINE 190 PRINT “ SEAWEED”; 
TO WRITE A POEM” 105 RETURN 

6 INPUT A$ 119 PRINT “ HOT”: 

7 CLS 115 RETURN. 

19 LET J = RND (21) 120 PRINT “ GRITTY”; 

15 IF J = 1 THEN PRINT 125 RETURN 
pits 139 PRINT “BEATING, 

20 «+IF}>1ANDJ <5 THEN BEATING”; 
GOSUB 1900 135 RETURN 

30 IF |} >4 THEN GOSUB 140 PRINT “ HARSH”; 
J*10 145 RETURN 

49 GOTO19 150 PRINT “ HOURS 

5@ PRINT “ SUN” PASSING”; 

55 RETURN 155 RETURN 

60 PRINT “ SAND” 169 PRINT “ ECHOED 

65 RETURN OVER”; 
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165 RETURN 200 PRINT “ FAINTLY 


170 PRINT “ BRIGHTLY WHISPERED”; 
DREW”; 205 RETURN 
175 RETURN 210 PRINT ” YET AGAIN’; 
189 PRINT “ DREAMILY 215 RETURN 
EASED”; 1000 PRINT 
185 RETURN 1001 PRINT 
199 =PRINT ” SHADOWED 1002 PRINT 
OVER”; 1903 RETURN 


195 RETURN 


When you run this, you'll be quite pleased (or at least | was when ! 
first wrote it) to find out how often, just by chance, quite attractive 
poems (!) are written by the program. Note the high number of 
RETURN commands. You'll remember that after going to a subroutine 
(GOSUB), the program executes the subroutine, then at the command 
RETURN, goes back to the line after the instruction to go to the 
subroutine. In this program, the line after the GOSUB instruction is 4Q, 
which instructs the computer to go further back, to line 10, to generate 
another random number. The decisions on where to place the 
semicolons (}, which tell the computer to print the next words on the 
same line, were made partly by running the program, and just seeing 
how the words fell, and also by the general decision that half the 
nouns (such as SUN, SAND and SEAGULLS) would end a sentence, that 
is, would not be followed by a semicolon. | also decided that 
adjectives (as in lines 120 and 149} would always allow for a word ta 
follow them, and that about half the other “seeds” (lines 15@ to 210) 
would do the same. 

By looking at the program listing you’ll see the lines 15, 2@ and 30 
make certain decisions, based on the random number generated. Line 
15 ensures that, just under 5% of the time, “...” will be printed. Line 20 
prints three blank lines (GOSUB 1090) just under 15% of the time, and 
line 30 directs the hardworking ZX80 to print one of the “seeds” just 
over 80% of the time. These proportions were worked out by running 
the program over and over again, adjusting the lines 15, 20 and 3@ until 
— the majority of the time — a pleasant poem iayout resulted 
Probably you've realised that the program runs until the screen is full 
(which gives a fairly good poem length). If you wanted to limit the 
number of lines in the poem to less than full screen length, you could 
place a counter (6r a FOR...NEXT) at the return target for the GOSUB 
at line 30 {i.e. at line 40). The kind of poem the program writes 
depends, as you can see, almost entirely on the words placed in the 
PRINT lines. The best way to decide on the words to go in the PRINT 
statements is to pick one topic, and then make every word and phrase 
relate to this topic. 

The original POETRY program was written when | was on holiday, 
and after producing about 20 SEASIDE POEMS, | decide to input some 
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words and phrases about the city where the program was written. The 
changes in the program produced some remarkably effective poems 
(plus a generous crop of duds). If you want to see how it works, change 
the following Jines using the EDIT facility, making sure you put a 
space just inside the quote marks. 


1 PRINT , “ SALZBURG 13@ PRINT ” MEMORIES IN 
POETRY” STONE”; 

50 PRINT “ CHURCHES”; 140 PRINT “ STEADFAST’; 

60 PRINT “ BAROQUE 15@ PRINT “ TRADITIONS 
TOWERS”; RELIVED”; 

70 PRINT “ MOUNTAIN 169 PRINT “ ECHOED”; 
VISTAS”; 179 PRINT “ COPPER 

8@ PRINT “ MUSIC BY DOMES”; 
MOZART”; 180 PRINT “ DREAMING” 

90 PRINT “ FORTRESS”: 199 PRINT “ SHADOWED 

100 PRINT ” COBBLED OVER”; 

' STREETS”; 200 PRINT “ FAINTLY 
119 PRINT “ TIMELESS”; - WHISPERED” 
120 PRINT “ BELOVED”, 21@ PRINT ” YET AGAIN” 


Try writing a program, using words and phrases. based on the last 
place you spent a holiday in, or pick a topic like “clouds”, “kittens” or 
“vintage cars”...and see what you, the ZX80 and the Muse can create. 
Here is one poem written from a set of words and phrases about 


London. 

.. TOURISTS CROWD ALWAYS MOVING 

RUSHING, PUSHING I HAVE SEEN IT 

BIG BEN CHIMES, AND RIVER THAMES 
CATHEDRAL SPIRES 

ALL BUT FORGOTTEN RUSHING, PUSHING 

PIGEONS IN TRAFALGAR SQUARE 


PF HAVE SEEN IT 
AT LAST, SUN. RIVER THAMES 
TIMELESS 
IT HAVE SEEN IT 
Not very brilliant, | guess, but acceptable. The “seeds” for this 
poem are: 


1 PRINT ,“POEMS OF 99 PRINT “” AT LAST, SUN.’; 
LONDON TOWN” 109 PRINT “ STREETS OF _.”; 

50 =~PRINT “” BOBBIES,”; 119 PRINT “ TIMELESS” 

69 PRINT “ TOURISTS 120 PRINT “ ALL BUT 
CROWD"; FORGOTTEN”; 

7@ PRINT “ PIGEONS IN 13@ PRINT “ MEMORIES OF 
TRAFALGAR SQUARE” MAJESTY,” 


8@ PRINT “ CHAOS” 
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149 PRINT ” RIVER 180 PRINT “ CATHEDRAL 


THAMES”; SPIRES” 

150 PRINT “ BIG BEN 199 PRINT “” GREY RAIN 
CHIMES, AND”; FALLS ON...”; 

169 PRINT “ RUSHING, 200 PRINT “i HAVE SEEN 
PUSHING’; IT” 

170 PRINT “ ALWAYS 210 PRINT “ MANY TIMES”; 
MOVING,” 


Notice how, in this program, link words like AND and ON finish 
some lines. 
Here is another peom, from yet another set of words: 


GRAVEYARDS ABOMINATIONS RELIVED 
DARK, DARK SHRINKING WITCHES CACKLE 
ECHOED CHILL OF ODDNESS CHANCES LOST 


SHRINKING CALLING, CALLING, GRAVEYARDS 
ECHOED CALLING, CALLING 

DEATH IS NEAR, SAY WITCHES CACKLE 

TURN AND REACH FOR 


DARK, DARK WITCHES CACKLE 
SKELETONS RATTLE 


GRAVEYARDS 
The “seeds” are as follows: 

7 PRINT ,“BLACK 130 PRINT “ MEMORIES OF 
SABBATH POETRY” PAIN,”; 

5@ PRINT “” GRAVEYARDS”; 149 PRINT ” SHRINKING”; 

6@ PRINT ” SKELETONS 15@ PRINT “ ABOMINATIONS 
RATTLE” RELIVED’; 

79 PRINT “ CHILL OF 160 PRINT “ ECHOED”; 
ODDNESS”, 170 PRINT “ CALLING, 

80 = PRINT “ WITCHES CALLING,”; 
CACKLE”, 180 PRINT “ DEATH IS NEAR, 

99 PRINT “ HOPE NOW SAY”; 
DEAD”; 190 PRINT “ SCREAMS ARE”; 

190 PRINT “ CHANCES 200 PRINT “ TURN AND 
LOST’; REACH FOR”; 

11@ PRINT “ TIMELESS” 210 PRINT “AGAIN, AGAIN” 


120 PRINT “ DARK, DARK”; 
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Hunting 


on a Grid 


There are many games, with names like HUNT THE HURKLE or 
BURIED TREASURE or DEPTH-CHARGE, which are based on trying to 
guess the location of one or more points on a grid. Each location is 
specified by quoting the co-ordinates of the point. To start our 
investigation of these games, input the following program, which sets 
up a very simple game of this type (you can leave out lines 10, 60, 70, 
80 and 99 if you want to save time). 


19 PRINT “HUNT GAME” 12@ INPUT A 

20 LET X = RND (19) 13@ PRINT A; 

3@ LET Y = RND (1Q) 149 PRINT “ SECOND 

49 PRINT “A ZX80 IS NUMBER?” 
HIDDEN ON A 19x 19 145 INPUT B 
GRID” 150 PRINT B 

5@ PRINT “ YOU HAVE 10 160 IFA = XAND B= Y 
GUESSES TO FIND IT” THEN GOTO 249 

60 PRINT “INPUT YOUR 170 IF NOTA = X OR NOT B 
GUESS, PRESSING = Y THEN PRINT ,“TRY 
NEWLINE” AGAIN” 

79 PRINT “AFTER EACH 180 INPUT BS 
DIGIT. TWO DIGITS 199 CLS 
ARE” 200 NEXT J 

80 PRINT “NEEDED, FHE 219 PRINT “END OF GAME” 
FIRST ONE YOU INPUT” 220 PRINT “ZX8@0 WAS 

99 PRINT “MUST BE FOR HIDDEN AT “X,Y 
THE HORIZONTAL CO- 230 STOP 
ORDINATE” 249 PRINT “YOU HAVE 

1090 FOR J = 1TO 19 FOUND IT” 


119 PRINT “FIRST NUMBER?” 250 STOP 


Once you've played this a few times, you'll realise that you're really 
“shooting in the dark” when trying to guess the ZX80’s location, and 
there is no feedback as to how close you are. 
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You can add the following lines to give you an idea of how you’re 
going: 


162 IFA = X AND NOT B = 164 IF NOTA = X AND B = 
Y THEN PRINT,A;” IS Y THEN PRINT ,A;“ IS 
RIGHT,”;B;“ IS NOT” WRONG, “7B; “1S 

RIGHT” 


Add these lines, and run the program a few times. You can then add 
another line to give the player more information: 
166 IF J = 6 THEN PRINT 
“CLUE: NUMBERS 
ADDED = “7X+Y 
Of course, many other features can be added. Here’s a version of 
the hunt game which allows the player to select the size of the grid, 
and gives clues in terms of direction. 


19 PRINT ,“HUNT THE 152 PRINT C;” AND 
SPIDER” EAST/WEST?” 
20 PRINT “(C) HARTNELL 155 INPUT D 
1980” 156 CLS 
25. PRINT 160 IFC =AANDD=B 
27. ~PRINT THEN GOTO 340 
39 PRINT “IN THIS GAME A 165 PRINT “GUESS 
SPIDER WILL WEAVE” NUMBER’}; WAS ” 
49 PRINT ” A WEB AND Ci 75D; 
HIDE ON IT” “ AND WAS” 
45 PRINT 170 PRINT “WRONG. TRY TO 
47. PRINT THE” ; 
50 PRINT “HEIGHT OF 180 IF C <A THEN PRINT 
WEB?2”; “NORTH ”; 
69 INPUT X 199 IF C >A THEN PRINT 
70 PRINT X;“ AND WIDTH?” “ SOUTH ”; 
80 INPUT Y 195 IF D <B THEN PRINT 
85 CLS “EAST” 
99 LET A = RND(X) 200 IF D >B THEN PRINT 
100 LET B = RND(Y) “WEST” 
119 FORJ =1TO5 210 PRINT 
120 PRINT “ THE SPIDER IS 220 PRINT 
HIDING ON A” 249 NEXT J 
130 PRINT X:” BY “:Y;” WEB. 250 PRINT “GAME OVER. 
WHERE IS IT?” SPIDER WAS AT :A;" 3B 
140 PRINT 280 PRINT ,“ANOTHER 
142 PRINT GAME?” 
145 PRINT 299 INPUT A$ 
“NORTH/SOUTH?”; 300 CLS 
150 INPUT C 319 IF A$ = “YES” THEN 
GOTO 30 
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32Q@ PRINT “THANKS FOR 340 PRINT “YOU FOUND 
PLAYING” THE SPIDER IN “J; 
330 STOP “ TRIES” 
35@ GOTO 289 


Slot/Fruit 
Machines 


Once you've paid for your ZX80, bought some software (and this 
book} and possibly invested in some additional memory, your wallet 
may be getting a little light. Here’s a program which you can use to get 
a little money out of your richer friends. 

The random number generator {of course) can easily be used to 
simulate a slot machine, or fruit machine, game. A very simple 
program of this type, with two “fruits” could be as follows: 


16) PRINT ,“SLOT MACHINE” 150 IFA = 1THELETC = 
20 LETC = 5 aa | 
39 LETA = 90 169 IF C <1 THEN GOTO 230 
46 LETB=9 170 IF C >1@ THEN GOTO 
5@ FORJ =17TO2 250 
69 LET D = RND(Q) 189 PRINT “YOU NOW HAVE 
70 IF D = 2 THEN COTO EGC 

119 199 PRINT “PRESS NEWLINE 
8@ LETA=A4+14 FOR NEXT GO” 
90 PRINT ,“ORANGE” 200 INPUT E$ 
190 GOTO 130 219 CLS 
1190 LETB=B+1 229 GOTO 36 
120 PRINT ,“CHERRY” 230 PRINT “YOU HAVE 
130 NEXT J BUSTED’ 
149 IFA =20ORA=9 249 STOP 


THEN LETC = C + 2 
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250 PRINT “YOU HAVE 
BROKEN THE BANK” 
260 STOP 

input this program and run it a few times. It works as follows: Line 
20 sets the counter for ORANCEs (A) at 0, and line 30 sets the CHERRY 
counter (B) at @. Your money is C, and line 20 sets it at £5 to begin the 
game. : 

Each play of the game requires two random numbers to be 
generated. These are counted by line 50 (and 13@) and generated by 
line 69. If the random number is 2, program control moves to line 11¢ 
where B becomes B + 1 and CHERRY is printed. Control then goes 
back to line 5@. If the random number is 1, A becomes A + 1, and the 
computer prints ORANGE before going back to line 5@ for the next 
number. 

After two numbers have been generated, and the ‘‘fruits’” printed 
out, the computer checks to see if both are the same (if they are, A will 
equal 2 or 9) and if so, adds two to your money (that is, lets C = C + 
2). If the fruits are not the same, the computer takes £1 off you (that is, 
lets C = C — 1). Can you see how the computer knows the two fruits 
were different? 

Next, it prints out your stake (line 160). The computer checks this 
amount. If it is less than £1, control goes to line 23@ to print YOU 
HAVE BUSTED. If it is greater than 10 control moves to line 250 where 
the computer prints YOU HAVE BROKEN THE BANK. If neither of 
these conditions-are true, the computer acts on the next line (199) 
which instructs you to press NEWLINE for the next go. 

That may seem a little complicated spelt out in detail, but you 
should be able to follow it through on the program. Once you’re sure 
you understand the workings of this program, write your own version 
with three fruits, and thus make it more like a “real” slot machine. 
You'll have to add some lines between others in my program to do this, 
and change a few lines completely. I’m not going to give you a 
program for a “three fruits” machine as you will benefit far more from 
working out your own program to simulate the working of such a 
machine. And it is far more fun playing a game with a program you've 
written yourself, than just feeding in someone else’s work. 

Once you've written and played with the three fruits version, read 
on to see one way of writing a four fruits slot machine (but with pretty 
odd fruit). Note that in this program, different winning combinations 
are worth different amounts, and generate comments. 


10 PRINT ,“SLOT MACHINE 60  =PRINT 

20 = PRINT ,“(C) HARTNELL 7@ PRINT ,“STARTING 
1980’ STAKE (£<2@)?”’ 

3@ PRINT 89 INPUTM — 

49 PRINT 99 CLS 

5@ PRINT 1909 LETC =9 
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LETD = @ 

LETE = 9 

LETF = @ 

FOR] =17TO4 

LET B = RND{4) 

IF B = 2 THEN GOTO 
220 

IF B = 3 THEN GOTO 
250 

IF B = 4 THEN GOTO 
280 

LETC =C+1 
PRINT ,“UNCLE” 
GOTO 300 


LETD=D+1 

PRINT ,“CLIVES” 
GOTO 300 

LETE =E+1 

PRINT ,“MAGIC” 
GOTO 300 

LET F =F +1 

PRINT ,“ZX80” 

NEXT ] 

IFC = TANDD = 1 
AND E = 1ANDF = 1 
THEN GOTO 370 

IFC = 4ORD = 40OR 
E= 4ORF = 4 THEN 
GOTO 379 

IFC = 30RD = 30R 
EF = 3ORF = 3 THEN 
GOTO 399 

LETM=M — 2 
GOTO 429 

LET M = M + 16 
PRINT ,, “(shift A, space, 
shift A) JACKPOT (shift A, 
space, shift A)” 


Zeddy page 42 


GOTO 420 
LETM=M +2 
PRINT ,,“(shift $) 3 OF A 


KIND ( shift S$)” 

IF M <1 THEN COTO 
490 

IF M > 49 THEN GOTO 
540 

PRINT 

PRINT 

PRINT 

PRINT ,“YOU NOW 
HAVE £°°M 

PRINT 


PRINT “PRESS NEWLINE 
FOR NEXT SPIN” 
INPUT A$ 

CLS 

GOTO 106 

PRINT “END OF GAME. 
YOU ARE BROKE” 
PRINT “ANOTHER 
GAME?” 

INPUT BS 

IF BB = “YES” THEN 
GOTO 66 

CLS 

PRINT ,“OK, BYE BYE” 
STOP 

PRINT “YOU HAVE 
£°°OM;", AND HAVE” 
PRINT ,“BROKEN THE 
BANK” 

GOTO 500 


Lost in 
Space 


We'll return now to the HUNTING ON A GRID idea, and work on 
finding objects which are located on more than two axes, that is, are 
hidden in three- {or even four-) dimensional space. Imagine our spider 
is hiding inside a cube, each side of which is X units long. Each point in 
the cube can be specified by giving three co-ordinates: height, width 
and depth. Before reading on to see how I’ve done it, try to work out a 
program in which a space capsule is lost inside a cube of space, with 
each side of the cube four kilometres long. 


1@ PRINT ,“LOST IN SPACE” 145 PRINT 
15 PRINT 15@ PRINT ,’(shift A) WRONG 
20 PRINT “YOU HAVE 15 (shift AY’ 
HOURS TO FIND” 155 PRINT 
3@ PRINT, “A CAPSULE 16@ PRINT “HOURS OF AIR 
LOST IN” LEFT — "715 — J 
40 PRINT “A 7KM CUBE OF 170 PRINT 
SPACE” 180 PRINT “MOVE ”; 
5@ LETA = RND(@?) 199 IF A >D THEN PRINT 
60 LET B = RND(7) “PRs 
76 LETC = RND (7) 200 IF A<D THEN PRINT 
89 FOR] =1TO15 “DOWN “ 
85 PRINT 210 IF NOT B = E THEN 
90 PRINT “INPUT 3 SEARCH PRINT “ACROSS ”; 
CO-ORDINATES” 220 IF C > F THEN PRINT 
190 INPUT D “FORWARDS” 
119 INPUT E 239 IF C <F THEN PRINT 
120 INPUT F “BACKWARDS” 
125 CLS 249 PRINT 
13@ PRINT ,D,E,F 250 IF J = 14 THEN PRINT 
149 IFA = DANDB=E “DANGER — DEATH 
AND C = F THEN GOTO IMMINENT” 
320 269 NEXT J 
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270 CLS 340 16—J};’“HOURS OF AIR 
280 PRINT ALEFT” 
290 PRINT “FAILURE — 350 PRINT 
ASTRONAUTS DEAD” 360 PRINT ,“ANOTHER 
295 PRINT MISSION?” 
300 PRINT ,“CAPSULE WAS 370 INPUT H$ 
AT UGA! “CB; 389 .CLS 
aes. @ 390 IF H$ = “YES” THEN 
319 GOTO 350 GOTO 20 
320 PRINT 400 PRINT ,“FAREWELL, 
330 PRINT ,“YOU FOUND BRAVE CAPTAIN” 
THEM WITH” 410 STOP 


Arrays 


Arrays, and the use of the DIM (dimension) statement, puzzle many 
newcomers to BASIC. The DIM statement is used if you want to set up 
a list with a ‘name’ (the name is a letter like A, B or whatever). For 
example, you might want the numbers 1 to 15 in the list named A, in 
the form LET A(Q) = 1, LET A (1) = 2 and so on to LET A(14) = 15. To 
tell the ZX80 you need an array to hold these elements (1, 2 and so on 
to 15) input: 

19 DIM A(14) 

The figure in brackets can be one less than the number of items or 
elements you want in the list because, in ZX80 BASIC, an array 
contains one more element than the number you place in the brackets: 
the first element is A(Q), not AC). However, you can have a much 
bigger array if you like, provided you don’t exceed the memory. In 
practice, it is sufficient to put the number of elements you want in the 
brackets, ‘forgetting’ that you are actually creating an array one 
element bigger than you need. The number inside the brackets is 
known as the subscript, and an element of the form F(2} or K(9) is 
called a subscripted variable. 

Here’s a program to show the DIM statement: 
19 DIM AQ) 49 PRINT “ACJ = AQ) 
206 FORJ = @TO1¢ 5@ NEXT J 
3@ LET AQ) = 2%) 

When you run this, you will get: 


AQ} = 0 
A(1) = 2...and so on to... 
A(10) = 20 
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Change line 19 to DIM A(5) and run the program again. This time 
you'll get just A(@) = @...to..A(5) = 10. The program stopped at this 
point (giving the error code 3/39, meaning that the subscripted variable 
required, i.e. J = 6to J = 19 was out of range). Change line 19 now to 
DIM A(2@) and run the program. You'll find you get exactly the same 
result as having DIM (A19). As I said before, you change nothing, in 
practice, by having a larger array than you actually want. Now add the 
following lines: 


10 DIM A190) 80 LET A(Z) = 3*Z 
60 INPUT BS 9@ PRINT “A(‘GZ;") = “A(Z) 
70 FORZ = @TO15 190 NEXT Z 


When you run this, you find the same A(Q) = @ through to A(10) = 20 
following by the symbol asking you to input a string (or, as in this case, 
press NEWLINE). The ZX80 will then display: 

A@) = 9 
A(i) = 3 
.. down to.. Ad) = 30 

The error code 3/80 will be displayed, because the demand made on 
the array by line 8@ was greater than the array defined by line 10 (that 
is, line 7@ made the next Z equal 11, and line 80 therefore wanted a 
subscripted variable called A(11) which, of course, it could not find 
because the array only had room for 11 elements). 

Here’s a program to show the DIM statement in use. 


10 LETR =1 170 LET T(Y) = 1 

20 PRINT ,”“LIFE CLASH” 180 NEXT Y 

30 PRINT ,“(C) HARTNELL” 185 PRINT 

32. PRINT 187 PRINT 

35 PRINT 199 PRINT ,, 

37 PRINT “GENERATION “;R 

49 PRINT ,“LIFE FORM 191 LEFR=R+1 
ONE?” 192) PRINT 

50 INPUT O$% 193) PRINT 

69 CLS 194 PRINT 

70 PRINT ,“LIFE FORM 195 FORY =1TOA 
TWO?” 200 IF NOT O{Y) = 1 THEN 

80 INPUT T$ GOTO 230 

90 =CLS 219 PRINT ,O§$ 

109 PRINT “HOW MANY OF 220 GOTO 260 © 
EACH TO START (<5)2” 230 LET J = RND(2) 

119 INPUFA 249 IF J = 1 THEN 

120 CLS PRINT,“ 

1390 DIM OfA) 250 IF J = 2 THEN 

149 DIM T(A) PRINT,T$,T$; 

150 FORY=1TOA 260 NEXT Y 

160 LET O(Y) = 1 270 PRINT 
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280 = PRINT 380 PRINT “INPUT N FOR 


290 FORY=1TOA NEXT GENERATION” 
300 IF NOT T(Y) = 1 THEN 396 =iINPUT N$ 
GOTO 330 400 IF NOT NS = “N” THEN 
319 PRINT ,T$; GOTO 1009 
320 GOTO 360 419 CLS 
330 =LET J = RND(2) 420 LET M = RND{A) 
340 IF J = 1 THEN PRINT, 430 LET F = RND() 
ae 449 IF F = 1 THEN LET 
350 IF J = 2 THEN O(M) = 0 - 
PRINT,O$,0$; 450 IF F = 2 THEN LET 
369 NEXT Y T(M}) = @ 
365 IFR = 4*A — 1 THEN 460 GOTO 190 
PRINT ,,,/(shift AJFINAL 1900 PRINT 
NEXT (shift A)’ 1910 PRINT 
3790 IFR = 4*A THEN 1920 PRINT 
~ GOTO 1000 1939 PRINT “DOMINANT 
375 PRINT SPECIES?” 
377, PRINT 1049 STOP 


Run this a few times (symbols are more effective than using 
HUMAN and ALIEN, or CAT and MOUSE for the life forms) and then 
read through the listing until you have worked out what each part of 
the program does. Now follows a very simple HUNT THE HURKLE 
program using the DIM statement. Input the program, run it a few 
times, then read through to find out how it works. 


10 PRINT “DIM SPIDER” 150 INPUT T 
20 DIM A(4) 16@ INPUT Y 
30 DIM B(4) 170 {tf A(T) = 1 AND B(Y) = 
50 FORG = 1TO4 1 THEN PRINT “YOU 
60 LET A(G} = 2 FOUND IT” 
70 LET B(G) = 2 180 IF A(T) = 1 AND B(Y) = 
80 NEXT G 1 THEN STOP 
90 LET K = RND(4) 199 NEXT D 
190 LET L = RND(4) 200 PRINT “SORRY, TIME IS 
119 LET A(K) = 1 uP” 
120) «LET BIL) =1 21@ PRINT “SPIDER WAS 
130 FORD=1TO5 AT’GK,L 
1490 PRINT “WHERE IS 220 STOP 

SPIDER, TRY 

NUMBER ”:D 


Having run this program a few times, and examined the listing, you 
are probably asking yourself what was achieved by using the DIM 
statements which could not have been achieved without them. The 
answer is: Nothing. However, the DIM comes into its own when you 
want to hide more than one object on a grid, without creating a whole 
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set of co-ordinates of the type LET A = RND(4), LET B = RND{(4), LET 
C = RND{4) and so on, to put the first hidden object at A,B; the second 
at C,D; and so on. 

Before we look.at this, here are two more programs which hide a 
single object. 


5 PRINT ,“DIMMER 15@ PRINT “ NO” 
SPIDER” 160 IF J = 5 THEN GOSUB 

10 DIM A(2) 260 

29 DIM B(2) 170 NEXT J 

3@ FORC =17TO2 189 PRINT “TIME IS UP. 

49 LET A(C) = RND(4) SPIDER WAS AT"; 

50 NEXT C AI); AQ) 

66 FORJ =17TO7 199 GOTO 205 

70 PRINT “WHERE IS THE 209 PRINT “ YOU HAVE 
SPIDER — ATTEMPT 7} FOUND IT” 

80 FORC =17T02 205 POKE 16421, 24 

90 INPUT B(C) 219 STOP 

190 NEXT C 229 PRINT ,A(1); ’ IS RIGHT” 

110 PRINT BT)” %;B(2); 230 GOTO 17@ 

120 IF A(t) = BC) AND 249 PRINT ,A(2), “1S RIGHT” 
A(2) = B(2) THEN GOTO 250 GOTO 179 
200 260 PRINT “HINT: 

130 !F AQ) = Bl) AND NOT LOCATIONS ADD UP 
A(2} = BQ) THEN GOTO TO “;AQ)+ AQ) 
220 270 RETURN 


149 IF NOT Ai) = BCI) AND 
A(2} = BQ} THEN GOTO 
240 
if you like, you can change line 169 to read: 
160 IF} = 3ORJ = 7 THEN GOSUB 260 
This just reinforces‘the same hint when ] = 7 as when J = 3. 
If you want the ‘hint’ to come at random, you could change line 160 
to: 
169 IF J = 2*A(1) THEN GOSUB 266 
or to: 
160 IF J = 2*A(2) THEN GOSUB 260 
Another version of this line, suggested by National ZX80 Users Club 
member lan Rodger, is: 
160 IF RND(7)<J THEN GOSUB 260 
This final version is probably the best, because it means that the 
closer to ] = 7 you get, the more likely you are to be given a hint. 
The only other thing to note is line 205 (POKE 16421, 24), again 
suggested by lan Rodgers. This line removes the code 9/219 at the 
bottom left of the screen which tells you the STOP command has been 


Zeddy page 47 


executed. You can use this line in any program where you feel the 
code number will detract from the final display on the screen. 

The core of the program DIMMER SPIDER can be used to produce a 
far more interesting game, and in this program we will introduce a new 
ZX80 function. 


5 PRINT ,“PESKY PIKSY” 199 GOTO 395 
10 RANDOMISE 200 CLS 
15 CLEAR 205 FORY = 1TO16 
20 DIMA) 210 PRINT 
25 DIM BO) 220 NEXT Y 
30 FORC =17T02 225 PRINT ,”YAY (shiftA) 
49 LET A(C) = RND(7) CAPTURED” 
5@ NEXT C 239 GOTO 305 
60 FOR) =17TO11 235 PRINT ,A(1); “1S RIGHT” 
70 PRINT “WHERE IS PIKSY 249 GOTO 170 
_ — ATTEMPT 7] 259 PRINT ,A(2); “ IS RIGHT” 
86 FORC =1TO2 255 GOTO 179 
99 INPUT BC) 260 LET G = RND(5) 
106 NEXT C 270 IF G = 1 THEN PRINT 
119 PRINT Bt)” ”;B(2); “HINT: LOCATIONS ADD 
120 IF AQ) = BO) AND UP TO ;” A(1) + A(2) 
A(2) = B(2) THEN GOTO 280 IF G = 2 THEN PRINT, 
200 “HINT: DIFERENCE 
130 IF AQ) = BO) AND NOT BETWEEN LOCATIONS 
AQ) = BQ) THEN GOTO IS “;ABS(A(1) — A(2} 
235 290 IF G >2 THEN GOTO 320 
149 IF NOT AQ) = B(1) AND 309 RETURN 
A(2) = BQ) THEN GOTO 395 POKE 16421, 24 
245 310 STOP 
15@ PRINT “ NO” 320 PRINT “Il WAS AT.” 
169 IF RND(Q) <j} THEN AU)” AQ)" NOW” 
GOSUB 269 330 PRINT “| AM MOVING” 
170 IF) = 4ORJ = 7 THEN 349 PRINT ,”“PRESS 
CLS NEWLINE” 
175 NEXT J 35@ INPUT A$ 
180 PRINT “TIME IS UP. 360 CLS 
PIKSY WAS AT 370 GOTO 19 
GA" AQ) 


Have a look at line 289. The function ABS stands for “absolute”. If a 
number is positive, the absolute value of that number is just the 
number. If a number is negative, the absolute value is the number 
multiplied by —1 {i.e., the number without its negative sign). If you 
leave out ABS in line 289, the clue will be so specific it will almost 
certainly give the location away, so ABS makes for a better game. 
Lines 209 to 220 perform an interesting task. After clearing the screen 
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(line 200} the FOR/NEXT loop moves the letters to be printed (line 225) 
to about the middle of the screen. This makes for a more attractive 
display. 

The next program locates a number of objects (19) on a grid, and 
gives a score based, of course, on how many you hit. However, if more 
than one object is at the same location you get more than one score. 
The program also awards you a “rating” at the end, 


2 PRINT ,“ALIENS + 390 PRINT 
ASTEROIDS” 319 PRINT, 
5 LET K = @ CHR§$(128);CHR $1 28); 
20 =DIM A(1Q) “ TIME 1S UP” 
30 =—DIM B19} 329 PRINT 
40 DIM C(19} 339 PRINT ,““(shift S twice) 
50 DIM DQ) YOU HIT “5K; ALIENS 
100 FOR} = 17TO10 (shift S twice)” 
119 LET AU) = RND(4) 349 PRINT 
120 LET BU) = RND(4) 359 PRINT “MARKSMAN 
130 NEXT J RATING: “;K*100/ 
169 FORZ=17TO8 (1 + RNDG)) 
170 PRINT CHR$(429 + 360 PRINT 
> RND(WQ);” SHOT “:Z; 37@ PRINT “THEY ARE 
“(shift Q)”; HIDDEN AT:-” 
180 INPUT C(Z) 380 PRINT 
199 INPUT D(Z) 399 FORJ = 17TO 19 
200 PRINT C(Z):" “;D(Z);""; 490 PRINT AQ); “ “BO) 
230 FORJ) = 17TO8 419 NEXT J 
240 IF AU) = C(Z} AND BU) 420 STOP 
= D(Z) THEN LET K = 430 CLS 
K +1 449 FORH = 17010 
250 IF AU) = C(Z) AND BQ) 450 PRINT 
= D(Z) THEN PRINT 460 NEXT H 
“HIT’SCHRSC 28); 470 PRINT ,“ YOU GOT 
“SCORE: “7K THEM ALL”; 
260 IF K = 1@ THEN COTO 480 FOR U = 1 TO 29 
430 490 PRINT CHR§(128); 
270 NEXT J 500 NEXT U 
289 NEXT Z 51@ COTO 479 
299 CLS 


The screen display for this game when run is, unfortunately, a little 
cramped. However, a more elegant display would use up the available 
space very quickly, and generate an error code 4. 

You'll notice a randomly generated-graphical character before the 
word SHOT each time. These graphics are the inverse of the graphics 
available direct from the keyboard. The number of every character is 
given in the manual, and to print the character corresponding to a 
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particular number, you just input PRINT CHR$ (number of character). 
The black blob you get on a hit is the inverse of the space (character 
number 128). The same character is used at the end if you manage to 
destroy all the aliens. The “marksman rating” at the end adds a little 
interest, and is actually related to your skill in destroying the aliens. 
The more you killed (K) the higher your score. It is divided by (1 + 
RND(G3)) just to make it a little more interesting. Can you see why the 
line does not read K*19@/RND(4) or (K/ + RND(3))*100? 


Strings and 
Ladders 


The discipline of programming in just 1K will stand you in good 
stead when later you add extra memory. It is very easy to get into the 
habit of programming sloppily, inefficiently or inelegantly when you 
have memory to spare. One way of making the most of your 1K is to 
use strings, assigned at the start of the program, for phrases which you 
intend to use at various parts of the program. The following game 
SNAKES AND LADDERS shows these techniques in use. 


5 LET G3 = “SCORE IS ” 60 INPUT C$ 
10 LET A$ = “SNAKE” 70 =PRINT ,“PLAYER 22” 
15 LETH$ = “:—” 89 INPUT D% 
20 LET BS = “LADDER” 99 =PRINT “TO START 
25 LET K$ = “ WINS” GAME ”; 
3@ LET L$ = “ WORTH” 190 LETA = 9 
49 PRINT “,A$;"S AND 110 LETB = 9 
“BSS” 130 PRINT “PRESS NEWLINE” 
5@ PRINT 149 INPUT E$ 
55 “PLAYER 7?” 150 GOSUB 260 
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155 LETK = @ 300 IFC >2 THEN LETT = 1 


169 GOTO 280 319 IFC <3 THEN LET M$ = 
165 LETA=A+E A$ 
1790 PRINT C$H8,M$;L$;E 320 IF C >2 THEN LET M$ = 
189 PRINT ,G$A BS 
199 PRINT 330 LET P = RND(6) 
195 IFA >19 THEN GOTO 349 LET E = P*T 
370 350 IF K = 9 THEN GOTO 
200 LETK =1 165 
219 GOTO 289 369 IF K = 1 THEN GOTO 
215 LETB=Bt+eE 215 
229 PRINT D$;H$,ME:L$;E 365 CLS 
230 PRINT ,G$;B 370 PRINT “(shift A)’;C$;K$; 
232 PRINT “WITH ":A—B; 
233 PRINT “ POINTS” 
235 IF B>19 THEN GOTO 385 GOTO 416 
390 399 CLS 
249 PRINT “FOR NEXT 395 PRINT ‘(shift A)’;D$:K$; 
MOVE ”; “WITH'’;B-A;“ POINTS” 
250 GOTO 130 409 PRINT “ANOTHER 
260 FOR S = 1 TO RNDGOO) GAME?” 
265 CLS 419 INPUT N$ 
279 NEXT S 420 CLS 
275 RETURN 430 JF N$ = “YES” THEN 
280 LETC = RND(5) GOTO 90 
299 IF C <3 THEN LET 449 PRINT ,“OK. BYE” 
T= —-1 450 STOP 


This program shows quite clearly how strings can be used to save 
memory {in fact, the idea was carried a little too far, just to make the 
technique plain). There are a few other things in the listing from which 
we can learn. Look at lines 299 to 32. These determine if the player 
will get a SNAKE (and a negative score) or a LADDER (and a positive 
score). If line 28@ had read LET C = RND(2} there would be a pretty 
good chance that the game would never end, because each players 
gains would approximately equal his losses, and the players would 
lose interest long before somebody happened to chance a win. By 
making the odds in favour of a ladder (a ladder, and positive score are 
generated about 60% of the time} the program ensures that both 
players’ scores. gradually build up. 

The next program is based on exactly the same idea as SNAKES 
AND LADDERS but takes longer to play, and ~ because it has more 


variables — is considerably more interesting. 
1 LET D$ = “ MILES TO 4 LET C$ = “COPS” 
GO” 5 LET H$ = “PUNCTURE ” 
2 LET E$ = “ALL OK” 6 LET J$ = “ POINTS” 
3 LET F$8 = “SMASH” 7 LET K$ = “OIL” 
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8 LETL$ = “ WINS WITH” 180 LET C = RND(11) 
9 LET N$ = “PETROL ” 190 IFC <6 THEN GOSUB 
19 PRINT ,“ROADRACE” 210 
20 RANDOMISE 200 IF C >5 THEN GOSUB 
30 PRINT “DRIVER 12” C*10 + 159 
49 INPUT BS 205 IF K = @ THEN GOTO 
45 LETA=@® 105 
5@ PRINT ,“AND 22” 207 IF K = 1 THEN GOTO 
55 LETB=@ 145 
60 INPUT A$ 210 LET M$ = E$ 
70 PRINT “PRESS 212 LET Z = 27 
NEWLINE” 215 RETURN 
75 INPUT C$ 220 LET M$ = F$ 
80 FOR} = 17TO 299 222? LETZ = —19 
84 CLS 225 RETURN 
85 NEXT J 230 LET M$ = G$ 
9@ PRINT ,A$ 232 LETZ = —7 
95 LETK=@ 235 RETURN 
190 GOFO 180 249 LET M$ = H$ 
195 LETA=A4+Z 242 LETZ = ~-12 
119 IF A >399 THEN GOTO 245 RETURN 
270 250 LET M$ = NS 
115 IFA <@THENLETA = 0 252 LET Z = —5 
12@ PRINT M$;397—A;D$ 255 RETURN 
125 PRINT 260 LET M$ = K$ 
130 PRINT BS 262 LETZ = ~23 
135 LETK =1 265 RETURN 
149 GOTO 180 270 PRINT 
145 LETB=B+Z A$;L$;39*(A — BJ +A — BJS 
150 IF B > 399 THEN GOTO 275 STOP 
280 280 PRINT 
155 IFB<@THEN LET B= @ B$;L$:39*(B— A) + B—A:J}$ 
160 PRINT M$;397 — B;D$ 285 STOP 
170 GOTO 70 


There are a few thing to note about this program. It is meant to be a 
race, and although the drivers in this game actually go backwards, 
they are unlikely to go backwards beyond their starting point. 
Therefore, if at anytime the score becomes less than zero, it is reset to 
zero (lines 115 and 155). Also in this game, as in SNAKES AND 
LADDERS, there is a slightly better than even chance of getting an ALL 
OK {and a positive mileage). See if you can find the line in the listing 
that ensures this. 

Comparing line 269 in SNAKES AND LADDERS with line 8@ in 
ROADRACE is instructive. In the first program, the delay is random 
(and varies from a delay of practically zero when S = 1 to a much 
longer period when S = 300). In ROADRACE, the delay is set (purely 
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arbitrarily at 299). There is no reason why you can’t set the delay in 
either program to zero {delete the FOR/NEXT loop, but leave in the 
CLS) or any number you like, or — if you prefer the unexpected — ata 
random number. Do not set the random limit too high (like, say, LET S$ 
= 71 TO RND(5000)) because you run the risk of (a) overloading the 
memory, depending on the program; (b) losing interest in the game if 
the delay is close to 5000 time and again; and (c) you may thing you’ve 
just got a long delay when, in fact, your ZX80 has gone into an infinite 
loop for some reason (this is likely if you’ve either made a mistake 
when inputting the program, or with some ZX80’s, the computer has 
become very hot). 
_ The next game — 52 BLUFF — uses the string idea again. In this 
game the ZX80 deals two cards. If you think the next card to be dealt 
will lie between the first two, you place a bet of your choice. This 
game is more interesting than some computer betting games like 
FRUIT MACHINE because you can decide on the likelihood of a win 
and adjust your bet accordingly. You can even decide not to bet at all. 


10 LETS = 30 269 LET Z =D 

20 LETA$S= 7 ” 270 GOSUB 480 

390 LET F$ = “CARD 1: ” 280 IFA<DANDD<B 

49 LET G$ = “CARD 2:"” THEN GOSUB 369 

5@ LET H$ = “CARD 3: ” 299 IFA >DANDD>B 

60 LET A = RNDQ3) THEN GOSUB 360 

7@ LET B = RND(13) 300 IF D>BANDD>OA 

89 IF B = A THEN GOTO 70 THEN GOSUB 416 

99 =PRINT ,,“(shift Q twice) 319 IF D<BANDD<A 
STAKE: £°¢S;"(shift Q THEN GOSUB 419 
twice)” 320 IFS <1 THEN GOTO 449 

109 PRINT F$;A$; 330 INPUT K$ 

110 LETZ=A 349 CLS 

129 GOSUB 480 350 GOTO 60 

13@ PRINT 360 LETS = S§ + 2*C 

149 PRINT ,G$;A$; 370 IFS >199 THEN PRINT 

159 LETZ=B “YOU HAVE BROKEN 

169 CGOSUB 460 THE BANK” 

17@ PRINT ,,,“WAGER?” 38@ IF S >199 THEN STOP 

189 INPUT C 399 IF NOT C = @THEN 

199 CLS PRINT ,“YOU WIN £'52*C 

200 IF C = @ THEN PRINT, 400 RETURN. 
“COWARD” 419 LETS =S—C 

219 PRINT ,,A,B 429 IF NOT C = @ THEN 

220 LET D = RND(13) PRINT ,“YOU LOSE £’;C 

230 IFD=AORD=B 430 RETURN 
THEN GOTO 220 449 PRINT ,“(shift A} YOU 

249 PRINT ARE BROKE” 

250 PRINT H$;A$; 450 STOP 
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469 IF NOT Z = 1 AND NOT 499 IF Z = 12 THEN PRINT 


Z > 10 THEN PRINT Z “QN” 

470 IF Z = 1 THEN PRINT 500 IF Z = 13 THEN PRINT 
WAT “eG” 

480 IF Z = 11 THEN PRINT 519 RETURN 
‘YK 


ir MUAH YE ES 


u 


You will recall that earlier in this book there was program in which 
the ZX80 thought of a number, then gave you hints to help you guess 
it. You probably realised that if you started with 5@ as your first guess, 
it was pretty easy to narrow down the number by going to either 25 or 
75 on the second guess. This method allowed you to get the correct 
number fairly easily. Here is another program which appears 
somewhat similar. But it is far harder to work out a system to beat it. 


1@  PRINT,“HOT SAUCE” 119 PRINT “A NUMBER 
2@ = PRINT ,“(C) HARTNELL BETWEEN 1 AND 100” 
1980” 120 PRINT “YOU HAVE 12 
3@ PRINT GUESSES” 
49 PRINT “WHATS YOUR 130 LET J = RND(99) 
NAME, PARDNER?” 149 PRINT 
50 INPUT A$ 150 LETS =S +1 
60 CLS 169 IFS = 13 THEN GOTO 
7@ = PRINT 420 
8@ PRINT 170 PRINT “WHAT NUMBER 
99 «LETS =@ AM 1 THINKING OF?” 
190 PRINT “OK, “;A$;“, | AM 18@ INPUTA 
THINKING OF” 198 CLS 
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200 IF A = J THEN GOTO 320 IF} - A<25 AND 


369 J ~ A >11 THEN PRINT 
210 IFA <j THEN GOTO 300 “JUST SO-—-SO” 
220 IFA — J <5 THEN 33@ IF J — A<45 AND 

PRINT “BOILING, “;A$ J — A> 24 THEN PRINT 
2390 IFA — Jj <12 AND “PRETTY HOPELESS” 

A ~ J >4 THEN PRINT 349 IF J ~ A >44 THEN 

“HOT” PRINT “PATHETIC, “;A$ 
249 IFA — J} <25 AND 35@ GOTO 280 

A ~ J >11 THEN PRINT 369 PRINT “YOU WERE 

“WARM” RIGHT, “;A$ 
2590 IFA ~— J <45 AND 37@ PRINT “I WAS THINKING 

A ~ J > 24 THEN PRINT OF “J 

“COLD” 389 PRINT “SO YOU GET 
260 IFA — } > 44 THEN ANOTHER GO” 

PRINT “FREEZING, 399 LETS = 9 

BABY” 499 GOTO 130 
270 PRINT 419 CLS 
289 PRINT ,,“NEXT GUESS?” 429 PRINT “SORRY, ”;A$; 
299 GOTO 150 “ YOU DIDNT GUESS 
300 IF J - A<5 THEN 11” 

PRINT “VERY, VERY 430 PRINT 

CLOSE” 449 PRINT “I WAS THINK 
310 IF J - A<12 AND OF “SJ 

}-~ A>4 THEN PRINT 450 STOP 


“PRETTY CLOSE” 


The term “absolute” (ABS on the keyboard) was introduced just 
after the listing for PESKY PIKSY. Refer back to this if you’re not sure 
what ABS does. The HOT SAUCE program could be written quite 
differently from the above, by using the ABS. In the listing here, the 
ZX80’s response to your guess is determined by whether the number 
you guess is higher or lower than the one it is thinking of, and by the 
difference between the numbers. If you rewrite HOT SAUCE using 
ABS, you'll find that only the difference between the numbers will 
determine the comment (“PATHETIC” or “BOILING” or whatever) the 
ZX80 will make. And just as HOT SAUCE is more difficult to play than 
GUESS MY NUMBER, HOT SAUCE with ABS is harder than without it. 
As an exercise, write a HOT SAUCE program using ABS. You should 
find it uses less memory than the above'listing, so you could program 
the ZX80 to make much longer comments on your guesses. 
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Designs on 
your VDU 


We have used the RND function time and time again in programs. It 
is one of the most useful features for games. But, as | pointed out 
earlier, the random number generated is not really a random number 
at all, but is one of a very, very long list of numbers, so long that the 
number appears to be random. The use of the RANDOMISE function 
(on the J key) sets the starting point of the long, long list of numbers to 
a number equal to the number of times your TV screen has been 
scanned since the ZX80 was turned on. This next program reads the 
number of frames time and time again, each time a little later than 
before, and uses this number to generate a random number which, in 
turn, is used to instruct the ZX80 to print a specific “character”. 

You'll find in your manual a list of characters and their 
corresponding codes. 

If you told your computer to print CHR&(12) you would find it would 
print the pound sign (£). CHR$ means the character whose code 
follows in brackets. A simple program to fill the screen with randomly 
generated characters, and their corresponding codes, is as follows: 


190 LET K = 1+ RND(62) 3@ PRINT “CODE NO. ":K; 
20 IF K >24 AND K < 28 “ES “CHRSK}Y 
THEN GOTO 10 49 GOTO 16 


(The one is added to the randomly generated number to avoid 
printing the character whose code is 1, a blank space, and the 
characters whose codes are 25, 26 and 27 are just punctuation marks.) 
The inverse graphics are printed by referring to their codes (numbers 
130 to 139) and you can fill your screen with these by running the 
following little program: 


10 LET K = RND (19) 
20 PRINT CHR&{(K + 129); 
3@ GOTO 19 
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By combining, more or less, the preceding program with the 
RANDOMISE function, we can develop an interesting program. Try 
the following: 


10 FORJ = 17TO10 12@ LET D = RND(22) 
20 PRINT 13@ PRINT CHR&(D + 165); 
30 PRINT ,“MAGIC CARPET” 149 NEXT H 
49 NEXT J 15@ PRINT CHR§$(212) 
5@ PRINT “IF YOU PRESS 160 PRINT — 
NEWLINE | WILL’ 170 FOR] = 1TO 48 
69 PRINT “CREATE A , 180 RANDOMISE 
CARPET DESIGN FOR 199 LET Z = RND(11) 
YOU” 200 PRINT CHR&(Z + 128); 
70 INPUT A$ 210 NEXT J 
80 CLS 220 FORJ =17TO45+G 
99 LET G = RND(3) 230 LET Z = RND(19Q) 
100 PRINT “CODE NAME 249 PRINT CHR&(Z 4+ 1); 
FOR DESIGN: — ”; 250 NEXT J 
CHR§(212); 269 GOTO 180 


119 FORH =17044+G 


There are several things we can learn from this program. Lines 19 to 
49 simply print the title ten times, which makes a more interesting start 
than just having the title printed once near the top of the screen. A 
similar idea is to run a number of blank PRINT statements in a 
FOR/NEXT loop to move the display to the centre of the screen. We 
will be using this idea in later programs, such as FRENZY. But for now, 
going back to MAGIC CARPET, line 99 sets G equal to a random 
number in the range 1 to 3. The value of G is used in lines 11@ and 220. 
Lines 190 to 15@ create a name for the design, by printing the 
characters {all inverse letters) whose codes are generated by line 129. 
CHR§(212) is the inverse quote marks and these are printed at each end 
of the name of the design. The naming part of the program is followed 
by two FOR/NEXT loops, linked by a final GOTO command. The 
RANDOMISE is within the first FOR/NEXT loop. 

Once you’ve run this program a few times, rewrite it by adding a 
further FOR/NEXT loop (with the FOR in line 165, and the NEXT in 
place of 26@) to stop the program before it crashes because the screen 
is full, and to allow you to have another go without having to go back 
into command mode first. Set the limit of this last loop so as to get the 
maximum amount of “carpet” on the screen. Experiment with the size 
of the other two loops, and with the maximum value of G and see what 
this does to the final display. 
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First Steps 


Towards 
the Stars 


Most computer systems in the world, micro to mainframe, have at 


least one STAR TREK-type game in their library. The limited memory 
on the basic ZX80 precludes all but the simplest versions of. this old 
favourite. However, study of the following program will teach you 
some of the fundamentals of star games, and will give you a core to 
build on when you buy extra K for your machine. 


1 


N 


19 


RANDOMISE 

PRINT ,“{shift A) 
TIMEWARP(shift A)’ 
PRINT 
PRINT 
LET G 
LET H i) 

PRINT .“NAME2” 
INPUT N$ 

PRINT “TREASURE” 
INPUT T$ 

PRINT “ENEMY 12” 
INPUT E$ 
PRINT,“ENEMY 22” 
INPUT F$ 

INPUT Z$ 

CLS 

LET J = RND({2) 


10 


Hol 


IF} = 1 THEN LET L$ = 
ES 
IF J = 2 THEN LET L$ = 
F$ 
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20 
21 


IF G <1 THEN GOTO 50 
PRINT ,“SHIELD 
THICKNESS: 7G 

INPUT Q$ 

LETH =H +1 

PRINT 

PRINT ,,“TIME 

LEFT: "17—-H 

PRINT “DANGER. “:L$; 
“AHEAD” 

INPUT BS 

GOSUB 55 

iF H = 17 THEN GOTO 
52 

LET K = RND(2) 

[F K = 2 THEN GOTO 35 
LETG =G=1 

PRINT “THE “L$; GOT 
YOU, “N$ 

GOTO 15 
LETG=G+1 


36 «PRINT “YOU : 48 PRINT “WITH “17 — 


DESTROYED THE “:L$, N$ Hy" TIME UNITS SPARE” 
37. INPUT Z$ 49 STOP 
38 «CLS 5@ PRINT “GAME OVER. 
39 PRINT “YOU ARE YOU ARE DEAD” 
CLOSER TO THE “:T$ 51 STOP 
49 INPUT D$ 52 PRINT “TIMEWARP HAS 
41 CLS IMPLODED” 
42 LET M = RND{5) 53 PRINT ,“YOU HAVE 
‘43 IF M <5 THEN GOTO 17 FAILED” 
44 GOSUB 55 54 STOP 
45. IF G >@THEN PRINT 55 FOR W = 1 TO RNDGO}O) 
“CONGRATU- 56 CLS 
LATIONS, “NS 57 NEXT W 
46 PRINT “YOU GOT 58 RETURN 
THE “:T$ 
47. PRINT “OUT OF THE 
TIMEWARP” 


[f this program followed a shorter version of the next program we 
will look at, and if the value of H could be used to print the “sector of 
the galaxy” we were in fi.e. IF H >3 AND H <7 THEN PRINT “YOU 
ARE IN SIRIUS SECTOR”) we would be well on the way to creating a 
much better “STAR TREK”. If you decide to add extra K, you could 
start by modifying this program. To give you room to move, multiply 
each line number by 19. 

In this program, for the first time, we access the ZX80’s frame 
counter. This allows us to add a time dimension to programs. 

Input the following program, and run it, keeping in mind that your 
reactions. to commands have a time limit to them. If you exceed the 
time, you'll get an ABORT MISSION display. 


1 PRINT,CHR$(428);"“BLAST 13. NEXT S 
OFF’ CHRS$( 28) 14. POKE 16414,0 
2 PRINT “TO START TAKE- 15  POKE 16415,0 
OFF ROUTINE” 16 GOSUB 19*RND(4) + 126 
3 PRINT, “PRESS 17. LET Q = PEEK (16414) 
NEWLINE” 18 LET N = PEEK (16415) 
4 INPUT K$ 19 IF J = 20AND 
5 RANDOMISE (N*256 + Q)*18 < 1500 
6 FOR J = 1 TO 20 THEN GOTO 170 
7 LETH = RND(1Q) 20 «IF (N*256 + Q)*10 < 15900 
8 FOR U = 1TO THEN NEXT J 
5*RND(10@) 21 CLS 
9 CLS 22 PRINT CHR&(128);"(shift 
19 NEXT U A} ABORT MISSION AT 7; 
11 FORS = 17TO 2*H (N*256 + Q)*16 
12) PRINT ~ 23 LETN=N#+1 
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24 GOTO 22 155 INPUT C$ 


130 PRINT ,CHRS$(128);"SET 157 IF C$ = CHRE(H + 48} 
FUEL TO”; THEN RETURN 
(H*20/3)*10*H — H 158 GOTO 21 

135 INPUT K 160 PRINT ‘(shift S two 

137 IF K = (H*20/3)*19*H — timesJGIVE IDENTITY 
H THEN RETURN NUMBER “(190*H — 

138 GOTO 21 H/3)+ J 

- 140 LET A$ = CHRS$(H + 37) 165 INPUT Z 

142 PRINT “(shift D four 167 TF Z = (100*H—-H/3) + J 
times)INPUT AIR THEN RETURN 
PRESSURE VALVE “;A$ 168 GOTO 21 

145 INPUT BS 179 CLS 

147 IF BS = A$ THEN 180 PRINT “(shift W two 
RETURN timesJWE HAVE LIFT 

148 GOTO 21 OFFS 

159 PRINT “SIGNAL TO 199 GOTO 180 
ALIEN “GCHR$(168 + J); 

CHRS(H*19);CHRS 
(166 + 2*H);” WITH ”; 
CHRS$(212);CHR$ 


(48 + H)-CHR$(212) 

This program uses a number of ideas we’ve been introduced to 
recently. Line 1 uses the very useful CHR$(128) which is the inverse 
space, a very solid black square. Lines 7 to 19 introduce a random 
delay while clearing the screen. As you run this program, you'll see 
that the commands appear at different points on the screen. They are 
placed here by the random number of blank print statements above 
them, generated by lines 11 to 13. The timer starts with the POKE 
statements {lines 14 and 15} where the count is set to zero, and the 
ZX80 keeps counting TV frames until! you get back to the PEEK 
statements {lines 17 and 18) via the randomly selected (line 16) 
subroutine. The subroutine will only RETURN you to lines 17 and 18 if 
you have done what was required within the subroutine. Once you are 
back at the PEEK statements, the ZX80 checks the value of a 
manipulation of Q {line 17) and N (line 18) against the maximum time 
limit. You may find this game gets a little boring after you’ve played it 
a number of times. If this happens, reduce the 1599 in lines 19 and 20 
to, say, 1900. Another idea, which is used in the following program — 
FRENZY — is to reduce the time throughout the game (by subtracting, 
for example, an arithmetic manipulation of the value of the counter of 
the master FOR/NEXT loop). You could do this by changing line 20 to 
read IF (N*256 + Q)<1500 — 25*) THEN NEXT J, and changing line 
19 to set the same restriction. You could then, perhaps, consider 
adding a print statement to tell you how much time you have to 
complete the instructions in the subroutine, and another print line 
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which tells you how long it took you to actually complete it. The next 
program, which-can be made as heart-stopping as you like, uses these 


features, 

1 RANDOMISE 

2 PRINT, ,CHR&(1 28); 
” FRENZY “:CHR§(1 28) 

3 PRINT 

4 PRINT “TO RISK SANITY, 
PRESS N/L” 

5 INPUT A$ 

6 CLEAR 

7 LET G = 5 + RND(15) 

8 FOR} = 1TOG 

9 FOR D = 1 TO 56 
*(20 + RNDOOYI 

1@ CLS 

11 NEXT D 

42 IF } > 1 THEN PRINT, 
“TIME LAST GO: -— “GM 

13. PRINT 

14 PRINT “TEST NO. J; 
“OUT OF ":G 

15 PRINT 

16 PRINT “YOU HAVE”; 
CHRS(128):2*(70 ~ 7*)); 
CHR§$(128)," NUT 
SECONDS” 

17 FORW = 1 TO RND(11) 

78 PRINT 

19 NEXT W 

26 LET F = 
(2*G + 3*}/2P yey — 
RND(9} 

21 POKE 16414, 0 

22 POKE 16415, @ 

23. PRINT “OK DUM DUM, 
COPY THIS NUMBER” 

24 PRINT 

25 LET X = RND(4} 

26 FX = 1 THEN PRINT, 


Ze 
28 


IF X 2 THEN PRINT ,, 
IF X 3 THEN PRINT ,,, 
PRINT F 

INPUT 
LET U PEEK{16414} 
LET Z PEEK (16415) 
LET M = 256*Z + U 
LET K = F AND 

M <2*(170 — 7*}) THEN 
NEXT J 

IF NOT K = F THEN 
GOTO 49 

IF M > 2*(170 — 7*)) 
THEN GOTO 45 

CLS 


libx~ 


PRINT .““YOUR SANITY 
RATING” 

PRINT “1S, 

M*j/8 + RND() 
PRINT 

PRINT “COULD YOU 


STAND IT AGAIN?” 
INPUT H$ 

IF NOT H$ = “NO” 
THEN GOTO 31 

STOP 

CLS 

PRINT ,“YOU ARE FAR. 
TOO SLOW” 

PRINT 

GOTO 38 

CLS 

PRINT “YOU CANNOT 
EVEN COPY NUMBERS” 
PRINT 

GOTO 38 


There are a few extra ideas in this program which are worth pointing 


out. Firstly, look at lines 25 to 28. These decide how far across the line 
the number F will be printed (if X = 4 the number is printed hard 
against the left because there is no instruction for X = 4). The second 
point worth noting is that the manner in which the answer to COULD 
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YOU STAND IT AGAIN? is treated. Any answer at all, except NO, will 
be interpreted as an instruction to go back for a second game. So if 
your smart friends input YAY, YEAH, Y, YESSIR, OK or whatever, the 
ZX80 will “understand” that YES (actually, NOT NO) is meant. 


Doing it in 
Your Head 


The next two programs do not have timers, but could well be 
adapted to have a real time limitation if you like. 


19 PRINT ,“UNICORNS AND 180 PRINT 


GRIFFINS” “UNICORN”: CHRS(212); 
20 LETG = 5 + RND(G) “S NUMBER IS :F 
30 PRINT 199 PRINT “WHAT DOES 
49 PRINT “DEGREE OF GRIFFIN ADD TO” 
DIFFICULTY (1 TO 5)?” 200 PRINT “MAKE 
50 INPUT Q UNICORN ”;CHR$(212); 
60 IF Q<1ORQ>5 THEN “S NUMBER = ':Z;2” 
GOTO 40 219 INPUT K 
70 PRINT “PRESS NEWLINE 220 IFK + F = Z THEN 
TO START” NEXT J 
80 INPUT A$ 230 PRINT 
99 FOR} =1TOG 240 LET T = (F*RND(IQO)+F 
100 FOR D = 1 TO RND(309) 250 IF J = 1 THEN LET 
119 CLS T=0 
12@ NEXT D 260 PRINT “SCORE FOR 
130 FOR W = 1 TO RND(6) THAT ROUND WAS “;T 
140 PRINT 270 IF NOT J = G AND NOT 
150 NEXT W K + F = Z THEN 
160 LET F = 2*G + 3*J/2 GOSUB 330 
170 LET Z = Q*URND(15) + 280 IF J = G THEN GOSUB 


J*19) 360 
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299 PRINT “DO YOU WANT 349 RETURN 


TO TACKLE THE” 35@ PRINT 
300 PRINT “UNICORN 360 PRINT “YOU HAVE 

AGAIN?” BEATEN THE UNICORN” 
319 INPUT H$ 370 PRINT “YOUR IQ IS ”; 
320 IF NOT H$ = “NO” T*} + J 

THEN GOTO 20 389 RETURN 


330 IF NOTK +F=2 
PRINT “THE UNICORN 
BEAT YOU” 


This program introduces an idea which you can use in many games 
~- the “degree of difficulty”. Generally, the “degree” can be used 
directly, to multiply or divide something, or to be added to or taken 
away from the limits on a FOR/NEXT loop. In other games, you might 
have to add lines like (if, say A was the degree): IF A = 1 THEN LET G 
= 200; or IF A > 7 THEN GOSUB 99. Look back at some of the earlier 
programs in this book, and work out ways of modifying them in the 
light of later things you have learned. 

The “degree of difficulty” can easily be worked into the following 
program. However, as it becomes more and more difficult already as it 
proceeds, it might be better to make it a little easier before adding the 
option of increasing the difficulty. Line 280 is the one to modify to 
make the game simpler, and it is here that the degree’ factor can be 
added. 


10° PRINT ,“ECHO 15@ PRINT ,/REMEMBER, ”; 
CHAMBER” A$ 
20 LET Z = RND(8) 160 PRINT (“1S “7K 
30 FORG =17TO0Z+4+5 17@ PRINT 
49 LET D = RND(4) 180 PRINT “WHEN YOU ARE 
5@ IF D = 1 THEN LET SURE YOU” 
A$ = “KIDDO” 199 PRINT “CAN DO THIS, 
60 IF D = 2 THEN LET PRESS N/L” 
A$ = “SMART ONE” 200 INPUT BS 
70 IF D = 3 THEN LET 210 IF NOT BS = “THEN 
A$ = “GENIUS” STOP 
89 IF D = 4 THEN LET 220 GOSUB 280 
A$ = “COMPUTER 230 PRINT “OK, “;A$; 
FREAK” “ WHAT WAS” 
99 LET K = RNDGB2767) 249 PRINT ,“THE NUMBER?” 
190 PRINT 250 INPUT H 
110 PRINT 260 IF H = K THEN GOTO 
120 PRINT “TRY NO. “GG; 329 
“OUT OF “4Z + 5 270 IF NOT H =-K THEN 
139 PRINT GOTO 418 
149 PRINT ,“THE NUMBER 280 FOR J = 1 TO 390*G 
YOU HAVE TO” 299 CLS 
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300 NEXT J 380 CLS 


310 RETURN 390 IF G = Z + 5 THEN 
320 CLS GOTO 440 
330 PRINT “YAY, “,A$;", YOU 400: NEXT G 
GOT IT”, “RIGHT” 419 CLS 
349 PRINT ,“WHEN READY 420 PRINT "YOU BLEW 
FOR” IT, A$ 
350 PRINT “NEXT ONE, 439 STOP 
PRESS N/L” 449 PRINT “YOU SURE HAVE 
369 INPUT C$ A PRODIGIOUS” 
370 IF NOT C$ =“ THEN 450 PRINT ,"MEMORY,”;A$ 
STOP 460 STOP 


In this program, which puts a number in the range from one to 32767 
(the ZX80’s upper limit) on the screen, and then asks you to remember 
it for a time period which gets longer with each new number, note that 
lines 4@ to 89 control what A$ will be in each run through the master 
FOR/NEXT loop. A similar approach was used in SNAKES AND 
LADDERS and ROADRACE. Line 289, as you can easily see, determines 
how long the delay loop will be. By the last few shots in a round, the 
delay seems interminable. Have a look at the listing for line 339, 
noting the comma between the words IT and RIGHT. If the comma 
was not here, the word RIGHT would scroll around, half on one line 
and half on the other, when D equals 4. Can you see why? 


Moving 
Graphics 


Because the TV screen is not memory mapped, genuine moving 
graphics are unfortunately out of the question for the ZX80. But you 
can produce a sort of animated picture as this next program shows. 
Input it as listed, then try and work out a version that has two people 
running in a race, with “moving legs”. 

1 LET A$ = “(shift A)t(shift 2 LET BS = “(shift A}2(shift 
A of Ay? 
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3 LET C$ = “O(shift GIO” 39 GOSUB 39 
4 LETC = 9 31. PRINT B$ 
5 LETD = 0 32 GOSUB 39 
6 RANDOMISE 33 PRINT C$ 
7 LET W = RND{4) 34 NEXT } 
8 PRINT “GRAND PRIX” 35 FORT =1TOC 
9 FOR J = 1 TO 70 36 ~=6 PRINT “(singlespace)’; 
10 IF J >1 THEN PRINT 37 NEXT T 
“AFTER LAP “J — 4 38 RETURN 
14 PRINT 39 FORZ = 1TOD 
12. PRINT “POINTS: ”; 40 PRINT “(singlespace)’; 
ABS — SC." “BS; — ";D 41 NEXT Z 
13. IF C >28 AND D > 28 42. RETURN 
THEN GOTO 54 43. STOP 
14. IFC >28 ORD > 28 44 CLS 
THEN GOTO 44 45 PRINT 
15 PRINT ; : 46 PRINT 
16 (FJ =1 THEN PRINT 47 PRINT 
“TO START RACE “; 48 PRINT ,“DRIVER OF ”; 
17. PRINT “PRESS NEWLINE” 49 IFC >D THEN PRINT A$ 
18 INPUT U$ 50 IF D>C THEN PRINT BS 
19 CLS 51. PRINT “WINS THE 
20 PRINT ,,,“FINISH(space GRAND. PRIX” 
shift QY’ 52 PRINT “WITH “;7ABS 
21. LET OS (C ~— D)*1000/; 
C - 1+ RNDG) ‘“singlespace) POINTS” 
22 GOSUB 35 53 STOP 
23 PRINT A$ 54 CLS 
24  [F 2*0/2) = J) AND NOT 55 IF C = D THEN PRINT 
J = RND(25) THEN LET A$; DEAD 
N = RND(W) HEAT ”;B$;(singlespace)”; 
25 GOSUB 35 56 IF NOTC = D THEN 
26 PRINT C$ GOTO 44 
27. ~-PRINT 57. GOTO55 
28 PRINT ; 
29 LET D = 


D —- 1 + RNDG) 


in this program the “movement” comes from the two subroutines 
(starting at lines 35 and 39) which print a number of blank spaces 
before the “car” is printed. If you wanted a person with waving arms, a 
random number could determine which “arm subroutine” was printed. 
The two people running a race program could be written by combining 
the idea used in GRAND PRIX for moving the cars across, with a sub- 
subroutine to determine the position of the figures’ legs. 

if you have more than 1K memory, you could write a GRAND PRIX 
with four cars, and include a number of hazards (such as SMASH INTO 
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SIDE WALL, OUT OF PETROL, or GEAR BOX BLOWS UP) which could 
either remove a car completely from the race, or simply take it out for 
a while, and then making sure it had to start again. Another variation 
on the above ideas is to let the cars, people or whatever move from 
left to right on the screen, and then move back. It should not be too 
hard for you to work out how this can be done. 

In this next game, a fly (heavily disguised as an ‘X’) has to land ona 
sugar cube (shift A). You input the co-ordinates you want the fly to 
follow — positive is down, followed by NEWLINE, left is negative. You 
have to estimate the co-ordinates you input, This program gives a 
pretty good imitation of moving graphics. 


1 PRINT ,“MAGIC FLY” 31 IF D = 1THENLETQ = 
2 RANDOMISE P+ 14 
3 LET V = 32 IF D= 2THENLETQ = 
4 LETT = 0 P= 1 
5 LET F = RND(29) 33) IFD = 3 THEN LET Q = 
6 LET Y = RNDGI) P 
7 LET X = 16 34 LETY=Y+0Q 
& GOSUB 37 35 IFY = FANDX <2 
9 LETT = T+ 1 THEN GOTO 50 
10 GOSUB 41 36)» «6©GOTO 8 
11. 1FX <2 THEN GOTO 13 37. FORH =1TOV 
12. GOTO 46 38 PRINT 
13. FORK =T1TOF 39 NEXT H 
14 PRINT “fonespace)”; 49 RETURN 
15 NEXT K 41 FORL=1TOY 
16 PRINT “(shift A)’ 42 PRINT “{onespace)’; 
17 tFX<2ANDY = F 43) NEXT L 
THEN STOP 44 PRINT “X” 
18 INPUTA 45 RETURN 
19 IFA>S5 THENLETA = 46 FORJ = @TOX 
5 47 PRINT 
20 INPUT P 48 NEXT } 
21 #IFP>S5 THENLETP =5 49 GOTO 13 
22 LET B = RND(3) 5@ PRINT ,“WELL DONE, 
23 CLS SUGAR” 
24 IF B= 1THENLETM = 51 PRINT 
X-~A +1 “YOU CHR$(212},"VE 
25 IF B = 2 THENLETM = LANDED ON THE CUBE” 
X-A-n-1 52. PRINT “AND IT TOOK 
26 IF B= 3 THENLETM = YOU “77; SECONDS” 
X—-A 53 GOTO8 
27 LETV=V+X--M 54 PRINT “YOU MISSED 
28 \LLETX =M THE SUGAR” 
29, IF X <1 THEN GOTO 60 55 PRINT “TO FLY AGAIN 
3@ ~=LET D = RNDG) TYPE (Y)’ 
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INPUT F$ 

CLS 

IF FS = “Y” THEN GOTO 
2 

STOP 

GOSUB 37 

FOR K = 1 TOF 

PRINT “(onespace)’; 


66 
67 


NEXT K 

IF Y < F THEN PRINT 
“X(onespace shift AY’ 

IF F <Y OR F = Y THEN 
PRINT “(shift A 
onespace)X” 

PRINT 7” 

GOTO 54 


The last game in this section is included because it makes a very 


effective use of the “moving graphics” idea, and also because it seems 
that just as every computer in the world hankers to be Captain Kirk, so 
every computer operator wants to land capsules, modules, LEMs or 
whatever on the moon. So here’s a program to do it via the ZX80. But 
be warned, it is fairly difficult to land safely and demands a lot of 
patience. Once you've mastered the art of landing, change line 2 as 


follows, just to make it even harder to land successfully: 2 


IF H < 30 


AND V <1@ AND V > ~7 THEN IF ABS(Z—M) < 4 THEN GOTO 37. 


1 
2 


Oo Ww pb 


GOTO 42 

IF H <5®@ AND V < 20 
AND V > ~15 THEN IF 
ABS(Z — M) <5 THEN 
GOTO 37 

IF H > 17590 THEN GOTO 


RND(2) 

LET V = V + A*A*A ~ 
12 — RNDG) 
LETH = H+ V — 20+ 
RND(19) 

LET F = F — (ABS{A) + 
ABS(B/5) * RND(6)) 
GOSUB 2 

IF H << 20 OR F <5 THEN 
GOTO 35 

LET U = H/100 

FOR} = 17TO17 - U 
PRINT 

NEXT J 
LETZ=2Z2+ B/2 +2 —- 
RND(3) 

FORJ = 1TOZ 

PRINT ‘(1 spacey’; 


19 


NEXT J 

PRINT “(shift F shift G 
shift DY’ 

FORJ =1TOU 
PRINT 

NEXT J 

FOR] =1TOM-—1 
PRINT “(shift W); 
NEXT J 

PRINT “(shift S shift W 


shift T shift W shift S)’ 
PRINT “VEL: "V;" XE23 
HEIGHT: 7:H,,“FUEL: “:F; 
“TIME: 77 : 
PRINT 13*A;” THRUST? %; 
INPUT A 

PRINT A; DRIFT?” 
INPUT B 

LET A = A/13 

GOTO 5 

PRINT “CRASH (shift R 
twice space) SPEED ”; 
ABS(V);"(space)”; 

GOTO 35 

CLS 
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38 PRINT “SUCCESSFUL 42 LETH = 1750 


LANDING (shift E) 43 LET F = 827 + RND(50) 
RATING “(39 — ABS(V)) 44 LETT = 
*100 + V 45 LET Z = RND(15) 

39 =GOTO 38 46 LETA = 1 

49 PRINT “YOU HAVE 47 LETB = 90 
REACHED ESCAPE 48 LET M = RND(19) 
VELOCITY” 49 LETV=9@ 

41 GOTO 4@ 59 GOTO6 


ZX80 Active Display 


Ron Bissell and Ken Macdonald, of Solihull, have found a way of 
getting moving graphics on the ZX80. They call their routine “the 
amazing active display”, and amazing it is. Input the following 
program, and RUN it a few times so you can see how it works. 

‘After you’ve RUN it as listed, delete lines 219 to 820 and insert your 
own program, with a GOSUB 909 whenever you want the ZX80 to 
display something and hold this display. Note that one of your lines 
must specify time (T). Start off with LET T = 15@ and then experiment 
with other values. With LET T = 255 you see nothing atall, while LET 
T = @ (as in line 35@ of the original program) holds the display for a 
very long time. LET T = 25@ is a very, very rapid change; so fast that 
your TV screen may not stabilise between changes. 

There is no reason why you cannot let T change during a game. Try 
and write a program which prints out a line of, say, shift A, then adds 
19 to the value of T, then prints out another line. You'll need to limit 
the number of lines of shift A’s you want to print, as well as put an 
upper limit on the value of T. (Hint: Put LET T = T + 1@ and JF T = 
300 THEN LET T = @ somewhere in the 999 subroutine). Once you've 
experimented with the active display, you might like to read the 
explanation on it given by the program authors. Note that the 
copyright of the active display belongs to R Bissell and K Macdonald, 
and like all the programs in this book, cannot be offered for sale, or 
used as part of a product offered for sale. 


10 LETA = 17270 221E497CDE OO 

20 \LETS=A C823DBFE3E 3832234006 

39 «6LET M$ = 5EI@FED3FE3EECO 
“CDEQO6CDC20501 2001 DI 6192A90C4OCBECCDAD 
CDC20518903CDADO10 O13EF5042BFD352318CA" 
6081 OF E2A1E4923 
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49 LET H = CODE (M$} 349 PRINT X$ 


50 IF H = 1 THEN GOTO 350 LETT = 0 
200 366 GOSUBR 

60 LET M$ = TLS(M§) 37@ CLS 

70 LET L= CODE (M$) 380 LET T = 150 

80 POKE A, 16* 390 GOSUB Q 
(H — 28)+L—28 400 PRINT T$ 

96 LET M$ = TLS${M§) 419 GOSUB Q 

196 LETA = A + 1 420 PRINT U$ 

110 GOTO 40 430 COSUB Q : 

200 LTC = 16414 449 PRINT WS 

210 LET R = 900 450 GOSUB Q 

220 LET Q = 800 46@ PRINT X$ 

230 LET T$ = “THE” 4790 LETT = 6 

240 LET US = “AMAZING” 480 GOSUB Q 

250 LET WS = “ACTIVE” 499 CLS 

260 LET X$ = “DISPLAY” 500 COTO 270 

270 LETT = 150 800 PRINT 

280 PRINT TS 819 PRINT 

290 GOSUBR 820 PRINT 

300 PRINT U$ 990 POKE C,T 

316 GOSUBR 910 POKE c + 14,255 

32@ PRINT W$ 920 LET X = = USR (S)} 

330 GOSUBR 939 RETURN 


In the program listing lines 19-119 and 92@ are the HEX LOADER i.e. 
a BASIC routine which can be loaded from cassette tape which will 
POKE a machine code routine into memory and pass execution to it. 
The machine code is held as a string of successive pairs of 
hexadecimal digits, M$ in line 3@. The usual method of entering 
machine code by POKING individual decimal values would, in this 
case, waste about 300 bytes of memory. 

in line 1@ variable A is the address to start loading and S in line 0 is 
the address at which execution starts in statement 92@. The value of A 
must be somewhere between the top of the Display File and the likely 
range of the Stack Pointer, 17270 in this case was found to be an 
optimum value but the Active Display machine code routine jis 
RELOCATABLE and may be positioned at higher addresses if more 
memory than the minimum 1K is available. 

If this method of entering machine code is to be used for other 
programs which require non-contiguous areas to be loaded, then make 
lines 49-110 a sub-routine and use a different value of A and MA for 
each separate area of contiguous code. Note that machine code 
programs can readily be edited using the BASIC line editor. 

Line 2@@ is the address of the System Variable used as the Frame 
Counter. In normal ZX80 operation this increments by 1 every time a 
complete TV frame is displayed, then re-cycles, but in the case of the 
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Active Display, the display routine is terminated when the count 
overflows back to zero and control passes back to BASIC for further 
processing. Lines 900 and 919 pre-set this Frame Counter for a 
particular display time. If the 2 byte unsigned binary number held here 
at locations 16414/5 is 65536 Le. 255,255 then a return to BASIC will be 
made without displaying. Each unit subtracted from 65536 will cause a 
display persist for another 1/50th of a second so periods up to 
approximately 10 minutes are possible. Note that very short periods 
may not give the TV set time to regain synchronisation lock and result 
in a messy picture. 

After the Frame Counter is pre-set, line 920 causes a jump to the 
machine code sub-routine which duplicates selected regions of the 
Sinclair ROM but with the added return on Frame Counter overflow. 
The keyboard is totally inoperative during Active Display, so to stop 
the program hold BREAK until control returns to BASIC. Remember to 
SAVE your program on tape before RUNning, since an error in 
machine code will undoubtedly cause a system crash. 


Let the Games Begin 


Now follows a series of games, all of which will fit within the 1K 
supplied with your machine. The games use ideas introduced in earlier 
sections of the book, and are here mainly for playing. You will 
probably learn something by studying the listings, but the main 
“teaching” is now behind you. 
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Did He Who 
Made the Lamb 
Make the UFO 


This game, which produces a remarkably attractive display, uses a 
subroutine to “draw” a flying saucer before each shot. Each saucer is a 
little different from the one that precedes it. The subroutine to 
generate the saucer is also used in the program LASER ROULETTE. 


q PRINT ,“SLAUGHTER” 22 
2 LET W = 5 + RND{(5) 
3 FORK = 1TOW 
4 PRINT 23 
5 PRINT |,“{shift W shift A 24 
shift W) : 25 
6 GOSUB 49 26 
7 PRINT “ ” 27 
8 FOR S = 1TO2 
9 PRINT , 
10 FORZ =1TO18 28 
11 PRINT “(shift SY’; 29 
12 NEXT Z 
13. PRINT’ ” 30 
14 NEXT S 31 
15 GOSUB 490 32 
16 PRINT “TALLY: “3K ~ 14; 
“ OUT OF “W 33 
17, «LET J = RND(B2000) 
18 POKE 164146 34 
19 POKE 16415,0 35 
20 PRINT 
21 PRINT “FOR SHIP “3K; 36 
“FIRE” 37 


PRINT “TO VECTOR “J; 


“IN”, 500 — 10° 
(K -- 1); STARSECS” 
INPUT M 


LET A = PEEK (16414) 
LET B = PEEK (16415) 
LET Q = B*256 + A 

IF Q > 590 ~— 10*K OR 
NOT M = } THEN GOTO 
50 , 
GOSUB 46 

PRINT “TIME FOR LAST 
KILL: “GQ 

NEXT K 

PRINT 

PRINT ,“YOU 
SLAUGHTERED” 

PRINT W;” SIRIUS 
SHIPS” 

PRINT 

PRINT ,“ANOTHER 
MISSION?” — 

INPUT BS 

CLS 
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38 IF NOT B$ = “NO” 45 RETURN 
THEN GOTO 2 49 PRINT 
39° STOP 5@ CLS 
49 = =PRINT ,“(2 spaces)’; 51 PRINT 
41 LET G = RND(11) 52 PRINT “SHIP “7K; GOT 
42 FORZ=1TO14 YOU" 
43° PRINT CHR$(127 + G); 53 GOTO 51 
44 NEXT Z 
oye 
maser 
Roulette 


PRINT “LASER 
ROULETTE” 
RANDOMISE 

FOR K = 1 TO 10 
PRINT 

PRINT 

PRINT 

PRINT ,,“(shift W shift A 
shift W)’ 

GOSUB 47 

PRINT ” ” 

FOR S = 17TO 2 
PRINT , 


FOR Z = 17T0O 18 
PRINT “(shift $)% 
NEXT Z 

PRINT “ ” 

NEXT $ 

GOSUB 47 

PRINT 

PRINT 

PRINT ,,“PRESS N/L”’ 
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PRINT ,,“FOR LASER” 
PRINT ,,“SHOT 'GK 
INPUT A$ 

GOSUB 53 

LET J = RND(Z) 

IF J = 4 THEN GOTO 41 
PRINT 

PRINT ,“SAFE...THIS 
TIME” 

PRINT 

IF NOT K = 1 THEN 
GOSUB 57 

NEXT K 

PRINT 

PRINT ,“YOU ESCAPED 
FROM THE ” 

PRINT ,“REACTION 
CHAMBER” 

PRINT 

PRINT “ANOTHER 
ESCAPE?” 

INPUT B$ 


38 CLS 5Q@ PRINT CHRS(G + 127) 


39° «IF NOT BS = “NO” 51 NEXT Z 
THEN GOTO 3 52. RETURN 
49 STOP 53 FOR Y = 1 TO K*K*10 
41 FORD = 1 TO 32 54 CLS 
42. PRINT CHR§(128); 55 NEXT Y 
43. PRINT “DEAD... 56 RETURN 
44. NEXT D 57 PRINT “YOU HAVE 
45 POKE 16421, 24 BLASTED ";K;” TENTHS” 
46 STOP 58 PRINT “OF THE 
47 PRINT ,’(2 spaces)”; SAUCERS REACTOR 
48 LET G = RND(Q1) WALL” 
49 FORZ=17014 59 RETURN 


In this game, the player is supposed to be trapped inside a flying 
saucer’s reactor (!) with a laser pistol. If he can fire 19 shots he can get 
out, but every time he fires he runs the risk of blowing the saucer — 
and himself — up. This is an example of how a simple program 
(RUSSIAN ROULETTE) can be dressed up and made much more 
interesting. 


High Noon 
at the Old 
Intergalactic 


In this game, you have to outdraw a nimble-fingered alien. The 
screen goes blank for a random length of time, then comes back, 
showing the alien (he moves across during the game). You must hit 
NEWLINE as fast as you can. If you do so quickly enough the alien 
dies, falling apart as splendidly as did the CHOPPER in an earlier 
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game. Once you’ve mastered this game, change line 38 to “IF D < 200 
+ RND(GOO) THEN GOTO 49”, and you'll find you have to learn to 
beat the alien all over again. 


1 GOTO 7 29 NEXT A 
2 PRINT A§$;“7/” 3Q@ POKE 16414, 0 
3 PRINT A$; *” 31 POKE 16415, 6 
4 PRINT A$;(shift AY’ 32 INPUT x$ 
5 PRINT A§$;“(SHIFT S, shift 33 LETT =T+1 
Ty’ 34 CLS 
6 RETURN 35 LET B = PEEK (16414) 
7 LETT = @ 36 LETC = PEEK (16415) 
8 PRINT “YOU HAVE 6 37 LET D = ((C*200) + 
SHOTS” (B*2})*2@ 
9 PRINT “TO OUTDRAW 38 IF D < 560 THEN GOTO 
THE ALIEN” 49 
1@ PRINT “BEFORE IT 39° IF T = 6 THEN SAVE 
DESTROYS YOUR BASE” AQ PRINT, “MISSED” 
1 LET A$ = “(6 spaces)” 44 FOR F = 1TO 12 
12 FORJ =1TO14 42 PRINT 
13.) PRINT 43 NEXT F 
14. NEXT J 44. GOSUB 2 
15 GOSUB 2 45 INPUT G$ 
16 PRINT “SHOT “;T + 1 46 CLS 
17. INPUT H$ 47 IF NOT G$ = “NO” 
18 CLS THEN GOTO 12 
19 FORC = 17014 48 STOP 
20 PRINT 49° PRINT “YOU HIT THE 
21 NEXT C ALIEN” 
22 IFT = 1 THEN LET A$ = 5@ PRINT ,“AND SAVED 
‘(9 spaces)” YOUR BASE” 
23) JF T = 2 THEN LET A$ = 51 FOR D= 17015 
‘412 spaces)” 52 PRINT 
24 JF T = 3 THEN LET A$ = 53) NEXT D 
“(15 spaces)” 54 PRINT A$;’(2 spaces)*” 
25 IFT = 4 THEN LET A$ = 55 PRINT A$;"/(3 spaces)*” 
“(18 spaces)” 56 PRINT A$: {shift G shift 
26 IF T = 5 THEN LET A$ = Ty’ 
“(21 spaces)’ 57. PRINT A$;"(2 spaces shift 
27 GOSUB 2 D shift R 2 spaces shift 
28 FORA =1TO G)’ 
10° RND(200) 58 STOP 


A novel feature of this game is line 39, which puts the computer into 
the SAVE mode if you lose. A far more frustrating punishment for a 
loss is to have to computer erase the program. Can you work out what 
line 39 would have to be to make the program disappear completely? 
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You will recall that, earlier in this book, a program under the 


imaginative name of TIME WARP was listed. The next program uses 
the same basic program to produce something a little more down to 
earth. All of the programs in this book can (and should) be developed 
by you in whatever direction you prefer. Only by doing this will you 
develop your own programming skills. Anyway, here is one way TIME 
WARP can be warped. 


1 


2 
3 
4 
5 


na 


™ OO &® NI 


LETG =9 

PRINT ,“CAVE MASTER” 
GOSUB 57 

LETH = 9 

LET E$ = “CRAZED 
WIZARD” 

LET FB = “WICKED 
WITCH” 

INPUT K$ 

GOSUB 53 

LET J] = RND(2) 

IF j = 1 THEN LET L$ = 
E$ 

IF} = 2 THEN LET L$ = 
FS 

IF G<1 THEN GOTO 47 
GOSUB 57 

PRINT ,CHRS(128 + G); 


“ ” AURA TONE 7;G 


LETH =H+1 

IF H = 17 THEN GOTO 
50 

GOSUB 57 


PRINT ,“LEVEL OF 
MAGIC: "717 — H 
GOSUB 57 

PRINT “HORRORS, “;L$: 
“ AHEAD” ; 
INPUT BS 

GOSUB 53 

IF H = 17 THEN GOTO 


LET K = RND(2). 

IF K = 2 THEN GOTO 31 
LETG =G-~2 
GOSUB 57 

PRINT “THE “L$; 

“ ZONKED YOU” 
INPUT A$ 

GOTO 98 

LETG = G +1 
PRINT “YOU ZAPPED 
THE “L$ 

INPUT D§$ 

GOSUB 53 

GOSUB 57 
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36 PRINT “THE FOOLS 49 STOP 

GOLD 1S WITHIN” 50 GOSUB 57 
37. PRINT,“YOUR GRASP” 51 PRINT “YOU TOOK TOO 
39 INPUT G$ LONG” 
AQ LET M = RND(6) 52 GOTO 48 
41 IF M<6 THEN GOTO 9 53 FORW =1TORND 
42 GOSUB 53 (400) 
43. GOSUB 57 Gd! CES 
44 IF GC >@ THEN PRINT, 55 NEXT W 

“YOU DID IT” 56 RETURN 
45 PRINT “WITH “17 — H; 57. PRINT 

““ MAGIC SPELLS LEFT” 58 PRINT 
46 STOP 59 PRINT 
47. GOSUB 57 60 PRINT 
48 PRINT ,“DEATH COMES 61 RETURN 

TO US ALL” 

se 
Turning 


the Tables 


There are many, many programs in which the computer thinks of a 


number, and the human player has to guess it. There are two of them 
in this book. This next program, written by Trevor Sharples, turns the 


tables. 

2 PRINT “MYSTIC” 

4 PRINT 

6 PRINT “THINK OF A 
NUMBER BETWEEN” 

8 PRINT “ONE AND 10 


AND I WILL GUESS IT” 


Zeddy page 76 


PRINT 

PRINT “PRESS NEWLINE 
TO PLAY” 

INPUT A$ 

GOSUB 86 

LETT = 0 


LET Z = 100 
LET Y = 1 
LET X = RND(109) 


PRINT ,“I GUESS “:X 
PRINT 

PRINT 

PRINT, “RIGHT (R) OR 
WRONG (W}?”’ 

LETT = T + 1- 
INPUT B$ 

IF BS = “R” THEN 
GOTO 66 

GOSUB 86 

PRINT “MY GUESS 
WAS ‘GX 

PRINT 

PRINT ,“HIGHER (H) OR 
LOWER {(L}?” 

INPUT C$ 

GOSUB 86 


IF C$ = “L” THEN GOTO 


GOTO 54 

GOSUB 86 

PRINT “BOY, AINT | DE 
SMART ONE?” 

PRINT “I GOT IT IN 
JUST ";T;" TRIES” 
PRINT 


74 


PRINT “COULD YOU 
FACE ANOTHER GAME, 
BUD?” 

INPUT D$ 

GOSUB 86 

IF D$ = “YES” THEN 
GOTO 4 

PRINT “BYE BYE THEN 
WET BLANKET” 
GOTO 82 

FOR F = 1 TO 
19*RND(15) 

CLS 

NEXT F 

RETURN 
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A Ching in 
his Armour 


This is a pretty trivial program, but if you have a copy of the “| 


CHING” it can be most entertaining. As you can see, a lot of the work 
the ZX80 does in this program is non-essential. A random number 
generator could do the job just as well. But it is better that the 
operator do more than just press NEWLINE, if only to feel that he or 
she has influence on what is going on. 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT ,“E CHING” 
PRINT 

PRINT 

PRINT “WHAT IS YOUR 
FIRST NAME” 

INPUT A$ 

PRINT 

PRINT 

PRINT ,“AND LAST?” 
INPUT B$ 

LET A = CODE(A$) 
LET B = CODE (B$) 
CLS 

PRINT “YOUR 
HEXAGRAM FOR TODAY 
1S.” 

PRINT 

PRINT 

FORD =1TO6 

LE? C = RND{(A*B) 

IF C > A*B/2 THEN 
PRINT ,““{shift W shift D 
space shift W shift Dy’ 
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23 


29 
30 
31 
32 
33 


34 
35 


IF NOT C > A*B/2 THEN 
PRINT “(shift W shift D 
shift W shift D shift W 
shift D)’ 

PRINT 

NEXT D 

PRINT 

PRINT 

PRINT “(5 spaces)SEE 
THE “;CHR$(128); 
CHR§&(174);CHR $1 28); 
CHR$(1 68); CHR S173); 
CHR$(174);CHR $179); 
CHR§(172);CHRS$C 28); 
“FOR” 

PRINT ,“AN 
INTERPRETATION” 
PRINT 

LET H = C/A 

IF H = @ THEN LET H = 
RND(B) 

PRINT “{4 spaces YOUR 
LUCKY NUMBER IS “;H 
POKE 16421, 24 

STOP 


In HANGCAT one player inputs a word, one letter at a time, pressing 


NEWLINE between each letter. Then the second player tries to guess 
the word, pressing NEWLINE between each letter he wants to try. If 
the second player is wrong he loses a life (hence the title). If the guess 
is right, the program prints out the correct letter in its correct position 
in the word. 


PRINT ,“HANGCAT” 
PRINT “PLAYER 1. TYPE 
IN A WORD OF 6 (3 
spaces) LETTERS OR 
LESS” 

PRINT 

PRINT 

LET G$ = “+” (shift J 
between the quote marks) 
LET H$ = "—” 

LET J$ = “—” 

LET K$ = “—” 

LET L$ = “~” 

LET M$ = “—” 

LETT = 9 

INPUT A$ 

INPUT BS 

INPUT C$ 

INPUT D§$ 

INPUT E$ 

INPUT F% 

CLS 

PRINT “READY TO PLAY? 
YOU HAVE 9 LIVES” 
PRINT “WHAT IS YOUR 
GUESS?” 


INPUT X$ 

CLS 

IF X$ = A$ THEN GOSUB 
39 

IF X$ = BB THEN GOSUB 
33 

IF X$ = C$ THEN GOSUB 
36 

IF X$ = D$ THEN 
GOSUB 39 

IF X$ = E$ THEN COSUB 
42 

IF X$ = F$ THEN GOSUB 
45 

GOTO 48 

LET G$ = A$ 

GOSUB 70 

RETURN 

LET H$ = BS 

GOSUB 70 

RETURN 

LET J$ = C$ 

GOSUB 70 

RETURN 

LET K$ = D$ 
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GOSUB 79 

RETURN 

LET L$ = E$ 

GOSUB 76 

RETURN 

LET M$ = F$ 

GOSUB 79 

RETURN 

PRINT 

PRINT ,G$;H$;)$;KB;L$;M3 
PRINT 

iF GS = A$ AND H$ = 
B$ AND J$ = C$ AND K$ 
= D$ AND L$ = E$ AND 


M$ = FS THEN GOTO 68 


PRINT 

LETT = T+ 1 

IF T = 9 THEN GOTO 59 
PRINT “YOU HAVE ”; 

9 — T“LIVES LEFT” 


PRINT 

PRINT 

GOTO 20 

PRINT “YOURE DEAD” 
PRINT “THE WORD 
WAS “:A$;B$;C$;D$;ES;F$ 
PRINT ,“ANOTHER CAT?” 
INPUT U$ 

CLS 

IF NOT US$ = “NO” 
THEN GOTO 2? 


PRINT 

PRINT ,“YAY CAT” 
GOTO 66 

LETT =T-—1 
RETURN 


nothing but drive you mad. 


RwWN 


RANDOMISE 

PRINT ,“FRUSTRATION” 
PRINT 

PRINT 
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5 


6 


Gnashing 
of Teeth 


The following program, from the fiendish mind of Trevor, does 


LET A$ = “TYPE IN 
YOUR NAME” 
PRINT ,“TO PLAY 
FRUSTRATION” 


re PRINT ,“PLEASE “;A$ 51 PRINT “YOUD 


8 INPUT F$ BETTER ";A$ 
9 LET R = RND() 55 RETURN 
1@ CLS 69 PRINT “CANT YOU OBEY 
11. GOSUB 190 EASY INSTRUCTIONS?” 
12. GOSUB (R+1)}*19 61 PRINT “ALL | WANT YOU 
13. INPUT B$ TO DO IS "A$ 
14 GOTO 9 65 RETURN 
2@ PRINT “LOOK MATE. 70 PRINT “WE CANT PLAY 
ARE YOU GOING TO IF YOU” 
GIVE” 71 PRINT “DONT ”;A$ 
21 PRINT “ME YOUR NAME 75 RETURN 
OR NOT?” 80 PRINT “ARE YOU THICK 
22 INPUT C$ OR SOMETHING?” 
23. IF C$ = “NO” THEN 81  PRINT,A$ 
GOTO 199 85 RETURN 
25 RETURN 109 FORD =17T0O 10 
3@ PRINT “I SAID 110 PRINT 
PLEASE ”;A$ 120 NEXT D 
35 RETURN 130 RETURN 
49 PRINT “VM GETTING 199 CLS 
FED UP WITH THIS” 200 PRINT “SOD YOU 
41 PRINT “PLEASE ”;A$ THEN “;F$ 
45 RETURN 219 STOP 


59 PRINT “IF YOU WANT 
TO PLAY THIS GAME” 


Let the longer games begin 


After a while, you'll discover the 1K supplied is a bit cramping, and 
you'll long to stretch your wings and add a byte or two. When you do 
this, you’ll discover that many of the good habits you’ve learned when 
you were restricted to 1K can desert you. It is very easy to set up a 
long and sloppy set of IF/THENs which could easily be replaced by an 
IF/THEN instruction to GOSUB. When you have memory to spare, it 
often seems too much trouble to bother cleaning up your programs, 
Unused subroutines clutter up the bottom ends of your programs. 
GOTO statements cover a multitude of situations which arose 
because you did not give sufficient thought to the maximum line 
number you would need 
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If you are going to take up flow-charting, now is the time to begin. if 
you can’t be bothered with pretty triangles and things, at least 
discipline yourself to setting out — on paper — what your program is 
supposed to do, with arrows linking FOR/NEXT loops, and lines leading 
to the first lines of subroutines. If you can be bothered, it is worth 
writing out a full listing for a program once you get it working. 
Examine it in detail, and you’re sure to find more elegant ways of 
achieving the same ends. Be particularly critical of each and every 
GOTO command which is non-conditional. 

All the programs given so far in this book can act as starter ideas for 
much bigger and better programs when you get extra memory. For 
example, the LUNAR LANDING program is a grown up version of the 
1K LUNAR LANDER and LABYRINTH is a much-expanded version of 
TIMEWARP and CAVE-MASTER. 

The best thing you can add to a program with added memory is the 
element of surprise. If you can include situations which do not occur 
every time a game is played, you'll ensure the game will remain 
interesting for a much longer time than would be the case if every 
situation is triggered every time a game is run. 

As you know, many of the games in this book run far too fast to be 
good games without the use of a “delay subroutine’. However, as you 
get into longer games {and | mean ones much longer than those listed 
in this section) you'll find that slow-running programs and response- 
times can be boring, especially if you have a graphical element in your 
program, which ‘ ‘moyes” in some way from go to go. You'll find that 
programs run much faster if you place often-used subroutines at the 
TOP of the listing, rather than after the main body of program as we 
have tended to do. The program runs faster because the computer 
must search through the whole listing, from the lowest number, when 
it comes across a GOTO or GOSUB command. If the GOSUB is near 
the top, it does not-have to go through, say, the instructions every time 
it searches for a subroutine. 

You can make the first line of the program GOTO some line number 
to jump over the subroutines. Variables which must be assigned at the 
start of a game can actually be listed right at the end of the program, 
ending with a GOTO leading back to the start of the game program 
proper. You can have a:ine like “DO YOU WANT INSTRUCTIONS?” 
near the start of a program, and if the answer is “YES” the computer 
can GOTO the end of the program where the instructions are. 
LABYRINTH, if you wanted it to run more quickly, could have the 
instructions at the very end and the delay/spacing subroutine (GOSUB 
1900) near the start. Doing this would, of course, somewhat defeat the 
purpose of having a delay subroutine. However, when you add a 16K 
pack to your ZX80, you'll have very, very long programs, and you will 
not always want to wait while the computer searches a vast listing for 
the subroutine. 
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Another way of improving programs, and making them interesting 
to players for a longer time, is to use a feature you've seen in some 
programs, the “degree of difficulty”. Make sure that this feature really 
does increase the difficulty of the game. Ensure that, even at the 
highest level of play, the final score for successful landing, or 
obliterated aliens or whatever} is attainable. 

You can add interest to games by awarding points, or scores, or 
ratings or whatever, that are genuinely related to the speed, skill or 
whatever the player demonstrated. A further twist is to award a “rank” 
(like “star fleet captain”, “novice” or “incompetent fool’) to the 
player, depending on how well he or she did. Points and ranks ensure 
that a player remains interested in a game for a longer time, as the 
player will try to beat his or her previous best score or ranking. 

Keeping these features in mind, have a look at the next two games, 
input them and run them, and then try to improve on them. 


. a Lunar 
Landing 


seth 


ethee 


a ee 
ry een has Wn, ve. 
19 LETM= 906 100 PRINT 
20 LETT =9 119 PRINT 
30 «LETS =@, 129 GOTO 390 
49 LETH = 5000 130 PRINT ,“(shift Q twice} + 
5@ PRINT ,“LUNAR 1S TOWARDS LUNA (shift 
LANDING” Q twice)” 
60 LET F = 5000/RND(3) 149 INPUT Z 
70 LET Q = ~—17 150 IF Z< —5QOR Z > 59 
8@ LETB=1 THEN GOTO 419 


99 RANDOMISE 
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389 


PRINT “FOR HOW MANY 
SECONDS?” 


3*E*ABS(Z*RNDGB) 

IF F 50@ THEN PRINT 
‘(shift Q three times) 
FUEL LOW (shift Q three 
times)” 

LETH =H — E*S 

IF H<2Q0ANDH > —16 
AND § < 12 THEN GOTO 
460 

IF H < —1@ THEN GOTO 
430 

IF F< @ THEN GOTO 430 
LET X = RND(1@) 

IFX = 5ANDNOTM = 
2 THEN GOSUB 796 
PRINT “” 

PRINT CHRS(128 + M); 
“ HEIGHT ABOVE 
SURFACE: ":H 

IF NOT Q = —17 THEN 
LET Q = Q — RND(16} 
IFQ<@ANDQ>-—17 
THEN GOTO 430 

IF NOT Q = —17 THEN 
PRINT ‘(shift S six times} 
OXYGEN LEFT: “;Q 
PRINT CHR$(128 + M); 
“VELOCITY: “;S 

iF NOT B = 1 THEN 
PRINT CHR§(128 + 
M);(shift Q three times) 
WARNING — THRUST 
ERRATIC” 

PRINT CHR$(128 + M); 
“ FUEL LEFT: “’;F 

PRINT CHR$(728 + M); 
“FLIGHT TIME: “77 
GOSUB 510 
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PRINT 

GOSUB 55@ 

PRINT “THRUST (—5@ TO 
+ 59)e” 

GOTO 130 

CLS 

PRINT “CRASH. HIT 
SURFACE AT ”;ABS(S); 
COTO 449 

CLS 

PRINT ,“SUCCESSFUL 
LANDING” 

PRINT 

PRINT “FINAL 
VELOCITY: “;ABS(S}; 
GOTO 496 

FOR A = 1 TO 64 
PRINT CHR$ (128 + M); 
NEXT A 

RETURN 

PRINT 

PRINT ,,“(space shift F 
shift DY’ 

FOR Y = 1TO 2 
PRINT ,,“(space)”’; 
CHR$128 + M); 
CHRS$(128 + M) 

NEXT Y 

PRINT ,/{shift A shift G 
shift G shift A)’ 

PRINT ,,“(shift A shift C 
shift G shift Ay’ 

PRINT 

FORG = 1TO 2 

LET K = RND(1Q} 

IF K = 1 THEN LET W$ 


oP ete A 
vee 


IF K = 2 THEN LET W$ 


at a 


IF K = 3 THEN LET W$ 
IF K = 4 THEN LET WS 


IF K = 5 THEN LET WS 


ae OF ee FP 


890 
990 


1F K = 6 THEN LET W$ 


orien tS hE 


IF K = 7 THEN LET W$ 


ee ot 


IF K = 8 THEN LET W$ 


fare PERS aie Es 


IF K = 9 THEN LET W$ 


a | 


IF K = 10THEN LET WS 


7a 


om 44 


PRINT ,,.W$ 

NEXT G 

PRINT 

RETURN 

CLS 

LETM = M + 1 
RANDOMISE 

FORV = 1TO7 
PRINT 

NEXT V 

LET U = RND(32000) 
FOR V = 1TO 6 
PRINT “HOUSTON, WE 
HAVE A PROBLEM...” 
PRINT ,CHRS 

(127 + RND(41)); 

“ DANGER “CCHR$ 
(127 + RND(W11) 
NEXT V 

PRINT 


910 PRINT “MALFUNCTION. 
USE COMPUTER” 

920 PRINT “ACCESS 
CODE “UW; FOR 
DETAILS” 

930 INPUT V 

940 CLS 

950 IF NOT U = V THEN 
GOTO 430 

960 LET V = RND(2) 

970 IF V = 1 THEN GOSUB 


1030 

980 IF V = 2 THEN GOSUB 
1070 

999 PRINT “N/L TO RETURN 
TO FLIGHT” 

1000 INPUT V$ 

1910 CLS 


1920 RETURN 

1030 LET Q = 100 + RNDO9) 

1049 PRINT “OXYGEN METER 
UNRELIABLE” 

1050 PRINT “(shift A 23 times)’ 

1960 RETURN 

1979 LET B = B + RND(Q) 

1980 PRINT “THRUST 
CONTROL ERRATIC” 

1999 PRINT “(shift W 22 
times)’ 

1919 RETURN 
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100 
110 


120 


130 


149 
150 


160 
170 
180 


199 


GOSUB 1000 

PRINT ,“LABYRINTH” 
PRINT ,“(shift G nine 
times)” 

LETX = 9 

LETS = 30 

LETW =1 

PRINT “YOU ARE AT 
THE START OF A” 
PRINT “LABYRINTH OF 
MANY TWISTING,” 
PRINT “TURNING 
TUNNELS. YOU HAVE” 
PRINT “ A SACK 
HOLDING 3@ PIECES OF” 
PRINT “SILVER. YOU 
MUST GET TO” 

PRINT “THE END OF 
THE LABYRINTH WITH 
AT” 

PRINT “LEAST 20 TO PAY 
THE MINOTAUR” 
PRINT 

PRINT ,”“PRESS 
NEWLINE” 

INPUT A$ 

RANDOMISE 

IF NOT A$ = “” THEN 
STOP 

GOSUB 1000 
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IF W <1 THEN LET 
W= 1 

PRINT “(shift Q seven 
times) THIS IS 
MAZE/TUNNEL” 
PRINT 


IF W = 10 THEN GOTO 
1070 

PRINT “NUMBER “CW: 

” OF THE LABYRINTH” 
PRINT 

PRINT ,“(10 IS THE ENDY’ 
PRINT 

LETX =X +1 

PRINT “(shift S) THIS IS 
CHALLENGE NUMBER ”:X 
IFS <1 THEN LETS = 5 
PRINT 

PRINT “YOU HAVE "S; 

“ SILVER PIECES” 

LET K = K + RND(5) 
PRINT 

PRINT “FACING YOU 
NOW ARE %;K;" DOORS” 
PRINT “WHICH ONE 
WILL YOU TRY?” 

INPUT A 

GOSUB 19000 

IF RND(IQ) = 5 THEN 
GOSUB 6990 


IF NOT A = K THEN 


GOSUB 420 
IF A = K THEN GOSUB 
690 


LET K = RND(4) 

1FK = 1 THEN LET E$ = 
“RODENTING RAT” 

IF K = 2 THEN LET E$ = 
“WART-FACED 
WOGGLE” 

1FK = 3 THEN LET E$ = 
“ELLIPSOID OCTOPUS” 
IF K = 4 THEN LET E$ = 
OWACKED-OUT 
WIZARD” 

PRINT “FOOL, YOUVE’ 
WALKED IN ON” 

LET E = RND(4) 

IF E = 1 THEN LET F$ = 
“FLAMING BRAND” 

IFE = 2 THEN LET F$ = 
“SHINING SWORD” 

IF E = 3 THEN LET F$ = 
“POISONED NEEDLE” 

IF E = 4 THEN LET F$ = 
“GOSUB-MACHINE-GUN” 
PRINT “(four 
spaces)’;E$:” ARMED” 
PRINT “(three 
spacesJWITH A “;F$ 
PRINT 

PRINT “WHICH WEAPON 
DO YOU CHOOSE?” 
PRINT 

PRINT “A FLOATING 
POINT ROM (1)},” 

PRINT 

PRINT “A FOR/NEXT 
LOOP (2),” 

PRINT 

PRINT “OR A POKED 
ADDRESS (3)?” 

INPUT B 

LET C = RND(3) 


_ GOSUB 1000 


IF B = C THEN GOSUB 
1176 


670 
680 
699 
700 
710 
720 
730 
740 
750 
7609 
779 
780 
790 
800 
810 
820 
830 
840 
850 
860 
879 
880 
899 
900 
910 
920 
930 
949 
959 
960 
979 


IF NOT B = C THEN 
GOSUB 1240 

GOTO 149 

LET K = RND(4) 

IF K = 1 THEN GOSUB 
760 

IF K = 2 THEN GOSUB 
819 

IF K = 3 THEN GOSUB 
850 

IF K = 4 THEN GOSUB 
900 

GOTO 140 

PRINT 

PRINT “YOUVE FALLEN 
THROUGH” 

PRINT A 
TRAPDOOR....” 
LETW=W-1 

LET S = $ ~ RND(2) 
RETURN 

PRINT “A WALL OF 
FLAME ENGULFS YOU” 
LETW=W-1 

LET S = S — RND(Q) 
RETURN 

PRINT “THE LOVELY 
PRINCESS SEMOLINA” 
PRINT “SOOTHES YOUR 
FEVERED BROW” 

LET S = S + RND(5) 
LET W = W + RND(3) 
RETURN 

PRINT “JOY OH JOY. A 
HOARD OF” 

PRINT “SILVER. CHOOSE 
UP TO 5 PIECES” 
PRINT “BUT BE 
WARNED. THE MORE” 
PRINT “YOU TAKE, THE 
MORE IT WILL” 

PRINT “COST YOU. HOW 
MANY?” 

INPUT D . 

LETS =S+D 

LET W = W - D/2 
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RETURN 

CLS 

FORO = 1TO 
20*RNDO@) 

NEXT O 

FOR} =1TO5 
PRINT 

NEXT ft 

RETURN 

IF NOT W = 10 THEN 
RETURN 

PRINT “YOU ARE AT 
THE END” 

PRINT “DO YOU HAVE 
ENOUGH SILVER?” 
PRINT “PRESS N/L TO 
FIND OUT” 

INPUT C$ 

IF S < 20 THEN PRINT 
“THE MINOTAUR HAS 
EATEN YOU” 

1F S < 20 THEN GOTO 
1119 

IF § > 19 THEN PRINT 
“VES, YOU HAVE “S; 
“ SILVER” 

IF § > 19 THEN PRINT 
“PIECES. YOU HAVE 
WON”, 

IFS >19 THEN GOTO 
1130 

STOP 

PRINT “YOU BEAT 
THE ““E$ 

LETS = S$ + RNDG) 
PRINT “AND HAVE “%;S; 
“ SILVER PIECES” 

LET W = W + RND{(4) 
PRINT 
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1220 


1230 
1240 


1250 


1260 


1270 
1280 


1290 


1300 


PRINT “YOU ARE 
APPROACHING 
SECTOR ”;W 
RETURN 

PRINT “THE “[E$; 

” BEAT YOU,” 

LETS = S — RND(4) 
PRINT “LEFT YOU 
WITH “38; SILVER” 
LETW=W-1 
[FW <1 THEN LET 
W=1 

PRINT “AND SENT YOU 
BACK TO “;W 
RETURN 


The ZX80 
as Teacher 


The ZX80 is an effective game-player. Writing and running programs 
on the computer enhances programming skills. However, the ZX80 can 
also be used in a direct role as a teaching aid. Its main use is in the 
field of quizzes. While the ZX80 can only select from a list of non- 
numerical questions, the computer can easily be programmed to 
create its own numerical questions. 

Another use in teaching is for the ZX80 to create lists and tables. We 
will look at this use first. 


1 PRINT 13. NEXT } 

2 PRINT 14 PRINT 

3 PRINT, 15 PRINT 
“MULTIPLICATION 16 PRINT “DO YOU WANT 
TABLES” ANOTHER GO?” 

4 PRINT 17, INPUT A$ 

5 PRINT 18 CLS 

6 PRINT 19° IF NOT A$ = “NO” 

7 PRINT “WHICH TIMES THEN GOTO 4 
TABLE WOULD YOU” 26 FORS = 17TO5 

8 PRINT ,“LIKE ME TO 21 PRINT 
PRINT?” 22 NEXT S 

9 INPUT A 23. PRINT , “OK. BYE FOR 

1@ CLS NOW” 

11 FORJ = 17012 24 STOP 

12.) PRINT ,,5;° XA; 


10 we APY 


Zeddy page 89 


A far more useful table is produced by the following program (and 
the display is a little more imaginative). Again, this program is given to 
suggest ideas for your own programs. 


<a 
12> ies hig eg 
Voss io ss 


x 


fy 
\ 


» NS 
SEs, wk 
ua 


l 


179 


RANDOMISE 

PRINT “(5 spacesjJA 
DEGREE OF 
CONVERSION” 

LET K = RND(Q) 

FOR S = 1 TO 32 

PRINT CHR&(K + 129); 
NEXT § 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT “WHAT 1S THE 
LOWEST TEMP. (F) YOU” 
PRINT “WANT TO 
CONVERT?” 

INPUT A 

PRINT ,“AND HIGHEST?” 
INPUT B 

IF B <A THEN LET 


E=A 
IF A <B THEN LET 
F=A 
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A Degree 


of Conversion 


189 


IF B <A THEN LET 


F=B 
IF A <B THEN LET 
E=B 


PRINT “IN WHAT 
DEGREE STEPS?” 
INPUT Z 

CLS 

PRINT “FY °C") “KY 
PRINT ” a 

LET H = RND(Q) 

FOR U = 1 TO 21 
PRINT CHR&(H + 129); 
NEXT U : 
PRINT 

FORD =FTOE + 2 
LETC = 5*(D- 32)9 
LET K = C + 273 
PRINT ,D,C,K 
LETD=D+2Z2-1 
NEXT D 

STOP 


In all programs, and especially in educational ones, you have to try 
and anticipate any mistakes (deliberate or otherwise) users will make 
when running a program. The lines 169 to 190 cover the possibility that 
a user will input the higher temperature first, rather than the lower one 
which was requested. 

There is no reason why educational programs should not have 
displays that are as attractive as games programs, so lines 30 to 69 and 
lines 250 to 280 select, in effect, a random underline. It is a good idea 
to incorporate such features whenever you have sufficient memory. 

Line 300 tells the ZX80 to print the value above the maximum 
requested, in order to ensure that the required temperature is covered. 

This is quite an interesting program to run, especially if you select 
an enormous range of temperatures, and select an unexpected 
increment (like 117 degrees). Of course, the ZX80 deals as easily with 
these cases as it does with the more predictble @ degrees to 100 
degrees in steps of 10 degrees, but it seems a little surprising to first- 
time users that it does so. 

As an exercise, modify the program so it will not print any value but 
Q if the temperature drops below absolute zero (@ Kelvin — 273 C). 

We will look now at a numerical quiz, in which ihe ZX80 creates the 
questions, checks their correctness, and then gives the user a score. 


Multiplication 
Quiz 


1 LETH = @ 5 PRINT “DEGREE OF 

2 GOSUB 46 DIFFICULTY (1 TO 10)?” 

3 PRINT, 6 INPUT A 
“MULTIPLICATION 7 IFA <@OR A >10 THEN 
QUIZ” GOTO 5 

4 GOSUB 46 8 LET A = A/2 
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9 IF A = @ THEN LET 39 PRINT ,“(single 
A= 1 space)RIGHT OUT OF “°G 
19 GOSUB 46 31 PRINT “PRESS 
11 PRINT “HOW MANY NEWLINE”; 
QUESTIONS?” 32) IF NOT G = B PRINT 
12. INPUT B “(single space} TO 
13. IF B<1 THEN GOTO 11 ; CONTINUE” 
14. CLS 33. INPUT A$ 
15 FORG =1708B 34 CLS 
16 LETC = A*RND(19) 35 NEXT G 
17, LET D = A*RND(1Q) 36 FORK = 1 TO 3 
18 LETTE = C*D 37. GOSUB 46 
19 GOSUB 46 38 NEXT K 
20 PRINT “QUESTION 39 =PRINT “END OF QUIZ. 
NUMBER “;G YOUR SCORE IS” 
21 GOSUB 46 40 PRINT ,H*100/G;"" PER 
22) PRINT “WHAT IS “C; CENT” 
“TIMES “D,/2'5 41 STOP 
23. INPUT F 42 LETH =H+4+14 
24 PRINT “(5 spaces)’;F 43 GOSUB 46 
25 GOSUB 46 44 PRINT “CORRECT. THE 
26 IF F = E THEN GOTO 42 ANSWER IS ";E 
27 PRINT “INCORRECT. THE 45. GOTO 28 
ANSWER IS CE 46 FORS =17TO3 
28 GOSUB 46 47 PRINT 
29°) PRINT ,“YOUR SCORE 48 NEXT S 
1S “CH 49 RETURN 


To make this an addition, subtraction or division quiz, simply 
change the arithmetic operation specified in line 18, and the word 
(TIMES in the above program) in line 22. 

There are a number of things which can be learned from this 
program. The most obvious is the use of the subroutine (GOSUB 46) 
which spaces the question and answer across the screen, enhancing 
readability without wasting memory with endless blank PRINT 
statements. Line 24 prints the user’s answer, so it can be compared 
with the correct answer. It can be quite frustrating if the answer just 
disappears when NEWLINE is pressed. Lines 7 and 13 ask the questions 
in lines 5 and 11 again if an answer in the required range is not given 
the first time. There is no reason why you cannot put in an additional 
line which says something like ONLY ANSWERS BETWEEN 1 AND 10 
ARE ACCEPTABLE ifeyou have sufficient memory. Lines 8 and 9 can be 
omitted if you want very difficult quizzes to be available. The zero to 
1@ option in line 5 is to give the user the impression that he or she has 
greater influence on the program than in fact’is the case. As an 
exercise, try to rewrite lines 8 and 9 so only one line of program is 
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given. It was put in the two-line form so it would be clear what was 
happening, but it can easily be written more efficiently. 

At the end of all questions in a set, but the last, lines 31 and 32 cause 
PRESS NEWLINE TO CONTINUE to appear at the bottom of the 
display. Line 32 ensures that after the final question only the words 
PRESS NEWLINE to appear. 


Squares 


The following table, which prints out numbers and their squares, 
uses a counter to stop execution when the screen is full. You can use 
this idea if the program output is sequential and is likely to cause the 
program to crash by demanding more screen space than you have. 


1 LETK =9@ 14 FORX=ATOB 

2 GOSUB 22 15 LETK =K+1 : 

3 PRINT ,“SQUARES” 16 IF K = 26 THEN GOSUB 

4 GOSUB 22 26 

5 PRINT ,“LOWEST 17 — PRINT,X;" SQUARED 
NUMBER?” 1S ;X*X 

6 INPUT A 18 NEXT X 

7 GOSUB 22 19° PRINT 

8 PRINT ,“HIGHEST 20 PRINT ,“END OF TABLE” 
NUMBER?” 21. STOP 

9 INPUT B 22 FORC = 1TO3 

19 GOSUB 22 23. PRINT 

11.) PRINT ,“PRESS NEWLINE 24 NEXT C 
FOR TABLE” 25 RETURN 

12. INPUT U$ 26 PRINT “PRESS NEWLINE” 

13° = CLS 27 LETK = 9 
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28 
29 
30 


INPUT A$ 
CLS 
RETURN 


I’m sure you will now be able to work out an endless stream of 
numerical quizzes for yourself, your children or your class to tackle. 
Non-numerical quizzes are very useful, but they require much more 
work in programming. Whereas the ZX80 can create its own numerical 
questions, each non-numerical question must be specified, and each 
answer included in full in the program. 


French 
Vocabulary 


Here is a sample quiz which can be adapted for any subject. 


60 
7@ 


80 

90 

100 
119 
120 
130 
140 
150 


RANDOMISE 

LET A$ = “GIVE THE 

FRENCH FOR” 

LET B$S = “CORRECT” 

LET C$ = “INCORRECT. 

ANSWER IS ” 

PRINT “FRENCH VOCAB 

4" 

LETA = @ 

PRINT “HOW MANY 

QUESTIONS?” 

INPUT N 

FOR) = 1TON 

CLS 

LET R = RNDGQ) 

GOSUB 19*R + 249 

PRINT A$;E$ 

INPUT G$ 

IF G$ = FS THEN LET 
=A+ 1 
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160 


255 


{F G$ = FS THEN PRINT 
BS 

IF NOT G$ = F$ THEN 
PRINT C$; F$ 

PRINT “PRESS NEWLINE” 
INPUT H$ 

CLS 

NEXT J 

PRINT “OUT OF “;N; 

” QUESTIONS YOU” 
PRINT “HAD “7A; 

”“ RIGHT, “;A*100/N; 

“ PERCENT ” 

PRINT “ANOTHER GO?” 
INPUT D$ 

IF D$ = “YES” THEN 
GOTO 60 
STOP 
LET E$ = 
LET F$ = 


“NEXT” 
“PROCHAIN” 


257 RETURN 307) RETURN 


260 LET ES = “YOUNG” 310 LET E$ = “HOT” 

265 LET F$ = “JEUNE” 315 LET F$ = “CHAUD” 
267 RETURN 317 RETURN 

279 LET E$ = “HERE” 320 LET E$ = “FULL” 

275 LET FS = “ICI” 325 LET FS = “PLEIN” 
277°) RETURN 327 RETURN 

280 LET E$ = “BETTER” 330 LET E$ = “SUGAR” 
285 LET F$ = “MEILLEUR” 335 LET F$ = “LE SUCRE” 
287 RETURN 337 RETURN 

290 LET ES = “MORE” 349 LET ES = 

295 LET F$ = “PLUS” “EVERYWHERE” 

297, RETURN 345 LET F$ = “PARTOUT” 
300 LET ES = “INSIDE” 347 RETURN 


305 LET F$ = “DEDANS” 


Note that there is no mechanism in this program for preventing the 
same question being asked more than once in a run. The limit set on 
the random number in line 11@ (that is, the number in brackets after 
RND) is equal to the number of different questions in the program. 
You can get ten programs of this length onto one side of a C-12 
cassette (just), so — with programs similar to the one listed above — a 
200-word vocabulary can be tested with the programs stored on a 
single cassette. If your questions need more than a one word reply, 
you will find (of course} that you can fit far fewer questions into a 
single program before running out of RAM. 


Life 
Expectancy 


There was a light-hearted life expectancy program earlier in the 
book. The next program, based loosely on actuarial tables, is closer to 
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a “serious” life expectancy program. However, it has had to be 
simplified, and therefore to some degree rendered less accurate, to fit 
within 1K. It is not really an “educational” program (although it could 
be used within a classroom is a demonstration of the “real” use of 
computers) but this seemed the best place in the book to put it. 


= OON AU Wh 


wh 
=~ 


12 


21 
22 
23 
24 


25 
26 
27 


LETC = 9 
PRINT “LIVES” 
LETA = 71 


PRINT ,“AGE (YRS)?”” 
INPUT B 

GOSUB 54 

PRINT ,“MARRIED?” 
INPUT A$ 

GOSUB 54 

IF A$ = “YES” THEN LET 
A = 76 

PRINT “HAVE YOU BEEN 
RICH OR POOR” 

PRINT “MOST OF YOUR 
LIFE?” 

INPUT C$ 

GOSUB 54 

IF C$ = “YES” THEN LET 
A=A-— 3 

PRINT “ARE YOU 
OVERWEIGHT?” 

INPUT D$ 

GOSUB 54 

iF D$ = “NO” OR B < 40 
THEN GOTO 24 

IF D$ = “YES” THEN 
PRINT, 

“BY HOW MANY 
POUNDS?” 

INPUT P 

LETC =C +P 

GOSUB 54 

PRINT “EXERCISE? 
NEVER. SOMETIMES. 
OFTEN” 

INPUT E$ 

GOSUB 54 

IF E$ = “SOMETIMES” 
THEN LETA = A + 3 
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IF ES = “OFTEN” THEN 

LETA = A+ 5 

GOSUB 5 

PRINT “ARE YOU OFTEN 

TENSE?” 

INPUT FS 

GOSUB 54 

IF FS = “YES” THEN LET 

A=A-3 

IF FS = “NO” THEN LET 

A=A+3 

PRINT “DRINK? LITTLE 

(0), MOD.(5Y’ 

PRINT ,“HEAVY(10)’ 

INPUT G 

IF B >A THEN LET A = 

B+ (B — Ay2 

GOSUB 54 

PRINT “DO YOU 

SMOKE?” 

INPUT H$ 

IF HS = “YES” THEN LET 
=A—5 

GOSUB 54 

PRINT ,“OFTEN ILL?” 

INPUT K$ 

IF KS = “YES” THEN LET 

A=A-3 

IF K$ = “NO” THEN LET 

A=A+3 

GOSUB 54 

PRINT “EST. AGE AT 

DEATH.” 

PRINT 

PRINT ,“FEMALE — ”; 

ET C5 = 

PRINT, “MALE — 

A-CI5-G 

STOP 


54 CLS 57. NEXT Z 
55 FORZ = 1703 58 RETURN 
56 PRINT 


Useful Subroutines 


Science of Cambridge claim the 1K RAM supplied with the standard 
ZX80 is equal to 4K of anybody else’s RAM, because most commands 
and statements are stored in a single byte. Although it appears that 
this claim is a little ambitious, the RAM can be made to hold a pretty 
long program (from 30 to 100 lines) and the shortage of memory 
teaches ingenuity in programming. As you'll have discovered, 
Sinclair’s dialect of BASIC has no facility for READ/DATA or for STEP 
and works only with whole number (integer) arithmetic. In this section 
of the book we will look at some useful subroutines, some of which 
have been introduced in the programs. | thought it would be handy to 
have them all together in one place. Many of the subroutines were 
worked out by inventive members of the Users Club and have already 
been printed in the club magazine INTERFACE. 

Clive Davies of Cheltenham devised the following subroutine to 
replace the missing READ/DATA function: 


19 LETN=@ 49 LET Z$ = TL$ (Z$) 
20 FORJ =9TO4 50 NEXT J 
30 LET N = (N*1@ + CODE 

(Z$ - 28) 


This subroutine supplies five digits of data stored as Z$. 

In Basildon, Dave Fenn developed an elegant subroutine to 
overcome the lack of a STEP facility in Sinclair BASIC: 

Instead of: 


19 FORX = 9 TO 130 STEP 20 PRINT X 
10 30 NEXT X 
Dave suggests substituting: 
10 FOR X = @TO 139 30 LETX =X+190- 1 
20 PRINT X 40 NEXT X 


To STEP down, substitute for line 30: LET X = X — 19 — 1, and for 
line 10: FOR X = 136TO @. : 

The STEP-up routine is used in the temperature program A DEGREE 
OF CONVERSION. 
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An efficient way of making the most of memory in some programs is 
to arrange for subroutine destinations to be specified by a multiple of, 
or a multiple plus an arithmetic manipulation of a randomly 
generated number. That sounds more complicated than it is in 
practice. Look at the following program: 


10 LETK = RND(4*) ; 70 PRINT “SUBROUTINE 70” 
20 GOSUB 10*K + 50 75 RETURN 

30) PRINT 80 PRINT “SUBROUTINE 80” 
49 PRINT “THIS IS LINE 40” 85 RETURN 

50 STOP 99 PRINT “SUBROUTINE 90” 
60 PRINT “SUBROUTINE 60” 95 RETURN 

65 RETURN 


As you can see, line 20 simply manipulates the random number 
generated in line 1@ to produce a destination for the subroutine jump. 
The manipulation can be a simple multiple (GOSUB 5*J), a multiple 
plus an addition {as in line 2@) or subtraction, or a conditional 
expression plus a manipulation of the random number (IF J} > 10 THEN 
GOSUB 10*} + N). 

Science of Cambridge have an optional plug-in 8K ROM which 
provides floating-point arithmetic, but without it, ZX80 owners have to 
fall back on subroutines or “tricks’’ to get an approximation of 
decimal places. There is a subroutine in the manual, but it uses a lot of 
precious memory. The following is not really satisfactory, but there is 
a way to approximate a few decimal places. One way is to multiply 
one of the integers you’re dealing with by, say, 190 before you start 
division and then mentally add the decimal point yourself, two digits 
from the right when you get the result. 

For example, to divide 12 by 7 (if you’d ever bother to use your ZX80 
to do such a thing) you would normally input: 

19 LET J = 12/7 
20 PRINT J 

This would give the answer 1 which is pretty useless. To get two 

“decimal places” you could input the following program: 


10 INPUTA 40 PRINT J; WITH 
20 INPUT B DECIMAL POINT TWO 
3@  ~=LET J = 1@Q*A/B DIGITS FROM RIGHT” (A 


subroutine can easily be 
devised to get the ZX80 
to put the decimal point 
in, but it seems scarcely 
worthwhile.) 


This program would give you, if you let A equal 12 and B equal 7, a 
value for J of 171 (1.71) which is a fot better than 1 for an answer 
{and not too far away from the real answer of 1.71428...). Multiply A by 
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1900 and you get three “decimal places”, i.e. 1.714, but this would 
limit you to numbers less than 32, to avoid exceeding the ZX80’s upper 
integer limit. 

The subroutine is useful if you want the ZX80 to give the result of a 
computation as an approximate percentage {as in the French 
vocabulary program, and the one which flipped a coin). For example, 
if you wanted the ZX80 to express 7/12 as a percentage, you could not 
use the line: PRINT “THE ANSWER IS 7:(7/12)*100;" PER CENT”. This 
would give you the result @. However, if you change the order of the 
computation to read: PRINT “THE ANSWER 1S ”;7*100/12;" PER 
CENT” you would get an answer which would be within 1 per cent of 
the correct value. 

in the program DIMMER SPIDER we introduced a line which 
removed the numerical message at the bottom of the screen which 
indicates a STOP command has been executed. This line, suggested by 
lan Rodgers of Wimbledon, is: POKE 16421, 24 and is placed in a 
program just before the STOP command. 

Colin Hughes of Luton has written a subroutine to renumber lines of 
a program listing in steps of 19. The subroutine was slightly modified 
by John Bloxham of Stratford and Brian Cross from Liphook (John and 
Brian both suggested swapping PEEK addresses in line 9989). 


9985 REM RENUMBER 9994 IF PEEK(N)*256 + PEEK 
9986 LET L = 10 (N + 1) =-9985 THEN 
9987 LETS = 10 STOP 
9988 LET B = 16424 9995 POKE N, L/256 
9989 LET E = PEEK 9996 POKEN + 14, 
(16393)*256 + PEEK L — (L/256)*256 
(16392) 9997 LETL=L+5 
9999 LET F = 9 9998 IF PEEK{N) = 118 THEN 
9991 FORN = BTOE LETF = @ 
9992 IF F THEN GOTO 9998 9999 NEXT N 
9993 LET F = —1 


As John Bloxham points out, the manual indicates that the ms byte 
of the line number comes first, but that appears to relate to the actual 
program storage area in the RAM, whereas 16392/3 relate to the area 
marked VARS. 

Joe Fitzpatrick, a users club member from Dublin suggests a 
subroutine which stops a program crashing when the screen is full. He 
included it in a program which displays each address and the 
character stored in it. His program essentially consists of printing the 
characters whose values are the variable A in the expression A = 
PEEK(B} where B is a number in the range 16424 to 17424. The 
subroutine to temporarily halt the program when the screen is full is: 


30 IF PEEK (16421)<3 a. 
THEN GOSUB 100 100 PRINT 
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119 PRINT “PRESS 130 =CLS 


NEWLINE TO 140 IFAS =" THEN 
CONTINUE” RETURN 
120 INPUT A$ 150 STOP 


The use of the quote marks in line 140 ensures that the ZX80 will 
RETURN only if just NEWLINE is pressed. 

Pressing any other key before NEWLINE will cause the program to 
STOP. 

Paul Jobling, from Rugeley, developed two useful subroutines 
which he sent to the users club. The first imitates the action of LEFT$ 
in other versions of BASIC: 

1900 LET X$ = 
CHRSCODE(X$) 
1919 RETURN 

Paul points out that this is useful for input which can be YES/NO or 
other decisions. It prevents confusion if a player inputs Y for YES, 
instead of YES, which it will also accept. GOSUB 1000, if you have 
assigned the last variable input X$ will make X$ become the first letter 
of X$. That is, YES becomes Y, as does YUP, Y and YESSIR. 

The second subroutine contributed by Paul allows you to specify 
the last letter in a word, a function carred out in some BASICS by 
RIGHTS: 


999 LETA = @ 1949 GOTO 19190 

1900 LET X$ = 23 1050 FORF=1TOA-—1 

1919 IF CODE Z$ = 1 THEN 1060 LET X$ = TLS&YX$) 
GOTO 1050 1070 NEXT F 

1920 LETA=A+1 1089 RETURN 


1930 LET Z$ = TLEZ$) 
You will recall that a delay was built into many games. The delay 
subroutine was of the form: 


1900 FORX =n, TOn, 1919 CLS 
(where n, and n, are 1920 NEXT X 
any numbers) 1030 RETURN 


In fact, it is not necessary for the CLS to be within the loop. It can 
just as easily be after-the NEXT line and before the RETURN line or 
even at the start of the subroutine. It is just a matter of personal 
choice where you put CLS. The ZX80 will delay for a period related to 
the difference between n, and n, whether it has anything to do within 
the loop or not. If you want the delay to be variable, line 1900 can be 
of the form: FOR X = 1 TO A*RND(B)} where A and B are either set at 
the beginning of the game, or vary depending on other variables 
during the course of a run. For example, A can rise or decrease 
depending on the value of the master FOR/NEXT loop which is 
counting the number of attempts a player is having ina game, or Acan 
be a “degree of difficulty”. 
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Jeremy Ruston of Kensington contributed a single line which tells 
you how many bytes (that is, how much memory) the current program 
takes up. Just input: 9999 PRINT PEEK (16392) + PEEK (16393}*256 — 
16461. If you then input RUN 9999 you'll find the screen will clear‘and 
a number will appear in the top left-hand corner of the screen. the 
number of bytes in the program which you currently have in the 
computer. 

You can get your ZX80 to play music (after a fashion) by using the 
following program, written by club member Philip Joy of Romford. 

This is just the bare bones of the music idea. You can use the 
concept to write music into programs so a win is rewarded with a trill 
of a few notes, or whatever. This program uses a machine code 
subroutine (the USR function). 

First input the following: 


10 POKE 17000, 237 
20 POKE 17901, 65 
30 POKE 17002, 2@1 
RUN this program, then delete lines 19, 20 and 30 by inputting the 
line number. Do not press NEW. 
Next, input the following program: 


5 LET K = 17000 80 FOR A = 1 TO Y*D 
10 INPUT X 90 RANDOMISE USR (K} 
29 INPUT Y 190 NEXT A 

30 INPUT Z 110 FORA =1TOZ 

49 FOR D = 1 TO 30 120 RANDOMISE USR (K} 
59 FORA = 1TOX 136 NEXTA 

60 RANDOMISE USR {K) 149 NEXT D 

70 NEXT A 


Run this inputting values for X, Y and Z of 50, 60 and 70. Then 
experiment with other values. You need to turn the volume of your TV - 
to maximum to hear the “music”. 


A Few Facts About the ZX80 


The ZX80 display, which is not memory mapped (so moving graphics 
are out of the question, unfortunately), can be up to 24 lines of 32 
characters each. The computer has its own modulator which produces 
an RF signal which can be-connected via the lead provided to a TV set. 
The 1 volt composite video signal which feeds the modulator inside 
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the ZX80 can be taken out, via a wire, and fed via a buffer circuit to a 
monitor. 

1K byte, inside the ZX80, is supplied as standard. Extra RAM must be 
added externally via the edge connector at the rear. The ZX80 will take 
a maximum of 16K bytes. The edge connection at the rear of the ZX80 
has the following: 8 data, 16 address, 13 control lines from the 
processor, clock, chip select for internal RAM and OV, 5V stabilised 
and 9 to 11V unstabilised supply lines. 

The data and address lines are not buffered, and there are no I/O 
ports. Sinclair has plans to introduce an interface to support floppy 
discs, printer, teletype or 1/O bus. There are sockets on the rear of the 
computer for connection to standard cassette recorders. Leads are 
provided with 3.5 mm jack plugs on them. The ZX80 loads the whole of 
the BASIC program into the cassette, You cannot load or fetch data on 
its own. 

Like most BASICS, ‘Sinclair BASIC’ is not compatible with other 
BASICS, although many programs can be adapted to run on the ZX80. 
The computer’s BASIC interpreter, character set, operating system and 
monitor are contained in a 4K byte ROM, and works in integer 2 byte 
arithmetic (with a lower limit of — 32767 and an upper limit of 32767). 
Arithmetic operators provided are —, +, multiply, divide and raise to 
the power. With the 4K ROM as supplied, the ZX80 does not handle 
floating point arithmetic, log, tan and the like, or exponents. An 
optional plug-in 8K ROM (which fits into the 4K ROM socket) does 
provide these. It is only available as an extra. 

The BASIC instruction set for the ZX80 is as follows: 

System Commands 


NEW Clears ZX80 for new program 
RUN Runs the current program 
LIST Lists the current program 
LOAD Loads a program from tape 
SAVE Saves a program on tape 


Control Statements 


GOTO Shifts control to line number specified 

IF THEN IF a condition is satisfied THEN carry out 
some other contro] statement 

GOSUB Go to subroutine specified 

STOP Pretty obvious what this one means 

RETURN This comes at the end of a subroutine, and 
sends control back to the line after the GOSUB 
line 

FOR..TO A counter, as in FOR X = 1 TO 19 
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NEXT 


CONTINUE 


PRINT 
INPUT 


LET... 


CLEAR 
CLS 
DIM 


REM 


RANDOMISE 


POKE 
PEEK 
CHR$ 
STR$ 


TLS 
CODE 


RND 
USR 
ABS 


At the end of the counter loop (set up by 
FOR..TO), sends control back to the FOR...TO 
line (and X becomes X + 1) 


Allows program execution to continue without 
losing variable 


Input/Output Statements 
Allows computer to output data on TV screen 
Allows user to enter data via keyboard 


Assignment Statement 
Assigns a value to a variable, as in LET X = 10 


Others 
Clears the stored values of variables 
Clears the screen 


Sets up the size of an array (one-dimensional 
only, no string arrays) 

Remark. This does not make the computer do 
anything, but is useful in a program to let you 
know what the following section does, e.g. 
REM COMPUTES VELOCITY. There is often 
not enough memory to indulge in REM 
statements 


Sets seed of random number generator equal 
to number of frames of TV since switch-on 
Allows user to talk to computer in binary 
Peeks at contents of an address 

Allows user to print any character 


Allows integer number of variable to be 
treated as a string variable 


Gives the string minus its first character 


Gives the code corresponding to the first 
character in a string 


Provides a pseudo-random number 
Machine code subroutine 
The absolute value of a number 
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The 8K ROM 


The 8K ROM fits into the socket for the 4K ROM and provides a 
number of additional features for the ZX80. Programs are not 
upwardly compatible, that is, you cannot LOAD tapes recorded from 
an old ROM machine into a new ROM. However, they can be typed in 
again on a new ROM machine practically without alteration (see 
introduction of this book for the changes needed). The 8K ROM is 
supplied with an additional manual and a new overlay for the 
keyboard. The most important features of the 8K ROM are: 

— full floating-point arithmetic to 9-digit accuracy 

— logs, trigs, and their inverse functions, graph plotting facility 

— pseudo-animated graphics using PAUSE n 

— full set of string-handling facilities 

— n dimensional arrays 

— n dimensional string arrays, cassette LOAD and SAVE with 
named programs. 


Numbers 


Stored in 5 bytes in floating point binary form giving 9 x 10°“ to 1.1 x 
10 accurate to 9% decimal digit 


Variables 

Numeric: Any letter, followed by alphanumerics. 

String: A$ — ZS. 

FOR-NEXT: A -— Z. 

Numeric arrays: —. A - Z. 

String arrays: A$ — ZS. 

Arrays 

Numeric arrays: ‘n’ dimension, subscript range starts at 0. 

String arrays: ‘n’ dimension, subscript 

(more correctly, range starts ac 0. If the last 

character arrays) subscript is omitted it’s treated as a fixed 
: length string. 

Strings. 


Undimensioned strings can be any length. 
Can be concatentated (+). 

Substring eg BS = A$ (2 TO 4). 

Literal strings eg C$ = “QWERTY”. 
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Statements available 


In this list, 

Vv represents a variable. 

x, Y,Z represent numerical expressions. 

m,n represent numerical expressions that are rounded to the 
nearest integer. 

e represents an expression. 

f represents a string valued expression. 

Ss represents a statement. 


Note that arbitrary expressions are allowed everywhere (except for 
the line number at the beginning of a statement}. Thus “GOTOLNA ** 


2” is valid. 
CLEAR 


CLS 


CONTINUE 


DATA... 
DIM... 


DRAW m,n 


FORA TOB 
STEP C 


NEXT 


GOSUB n 
GOTO n 


Deletes all variables, freeing the space they 
occupied. 


(Clear Screen) deletes all PRINT output in the 
display file. 


Resumes execution of the last run program -- 
repeats the last statement if an error was 
detected, otherwise restarts at the next one. Note 
that a command (immediate execution) statement 
counts as a program and so destroys the re-entry 
data. 


Standard, but no unquoted strings. 


Deletes any array or string with the same name, 
sets up space for a new array in the usual way, 
and initialises its elements to O or “ ”. 


Let (u, v) be the current PLOT (q.v.} position. 
Draws a line as straight as possible from (u, v} to 
{u + m,v + n) by blacking-in pixels (quarter 


_ character squares). Changes the PLOT and PRINT 


positions. 


Generally standard, but 
entirely dynamic in its action. 


The effect of a NEXT statement is to look up the 
corresponding FOR-variable, increment its value 
by the STEP, check whether the limit is exceeded 
and if not jump to the looping line number. 


Transfers control to BASIC subroutine. 
Jumps to line n. 


Zeddy page 105 


lF x THEN s 


INPUT v 


LIST 
LIST n 


LOAD f 
NEW 


NEW n 


PAUSE n 


PLOT m,n 


POKE mn 


PRINT... 


PRINT AT m,n 
PRINT TO de 
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If x is true (defined to mean greater in absolute 
value than 27") then s is executed. The standard 
values of true and false as yielded by relational 
operators are 1 and 0. 

Outputs the display file to the screen with no 
special INPUT prompt; the rest is standard. 
Cannot be used as a command (immediate 
execution) statement. 


Lists from start of program. 

Lists program starting at line n with program 
cursor pointing at line n. 

Looks for a program called f on tape and loads it 
and its variables. 


Default n = 0. Erases BASIC program and 
variables. 

n is used to alter a system variable known as 
RAM TOP, which is the address of a byte in RAM. 
The area from RAM TOP on is untouched by the 
BASIC system, the POKEd programs can be left 
there in safety. 

Sends the display file to the TV screen for n 
frames (50 frames per second) or until a key is 
pressed, 


Sends the PLOT position (a system variable) to m, 
n) and blacks in that pixel. Also changes the 
PRINT position. 


Writes nin byte m in RAM. 


Mostly standard. The display file has 22 lines of 
32 characters each (2 zones of 16 characters} and 
when this is filled it is sent to the TV with error 5. 
CONTINUE carries on with the program with no 
loss of data. 


Moves the PRINT position to line m, character n. 


Alters the PRINT format. Here d is an optional 
digit between 1 and 8 {default value 8) and e is 
an-optional letter E. From now until another such 
formatting item, numbers will be printed to d 
significant digits, and if E is present they will 
always be printed using scientific notation. 

On switch-on, the format is initialised so that 
numbers are printed to 8 digits and scientific 
notation is avoided where possible. Note that 
PRINT does not change the PLOT position. 


RANDOMIZE 
RANDOMIZE n 


READ v 
REM... 
RESTORE 
RETURN 
RUN 
RUN n 
SAVE f 


SCROLL 
STOP 


UNDRAW m,n 
UNPLOT m,n 


Standard. 


If n is given, this is made the value of the seed of 
the random number generator. 


Reads v for a data statement. 

Remember, for program comments. 
Reinitialises the data (so it can be read again). 
Return from subroutine. 

RUNs the BASIC program. 

CLEAR followed by GOTO n. 


Saves program and variables on tape and calls it 
f. 

Scrolls display file up one line, losing top line 
and making space at bottom. 


These are like DRAW and 
PLOT, but blank out pixels instead of blacking 
them in. 


Functions Type of Operand Result 


o number Negate 

ABS number Absolute magnitude 

ARCOS number In Radians 

ARCSIN number in Radians 

ARCTAN number In Radians 

CHR$ number The character whose code is x. 

CODE number The code of the first character in 
x (or O if x is empty) 

cos number In radians 

EXP number e* 

INKEY $ number Reads the keyboard. The result is 


a character representing the key 
pressed, otherwise the empty 


string. 
INT number integer. 
LEN string The length of x. 
LN number Natural log 
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NOT number 
PEEK number 
PI 

RND 

SGN number 
SIN number 
SQRT . number 
STR$ number 
TAN number 
USR number 
VAL string 
AND 

OR 

Relational operators 
— Equal 

> Greater than 
< Less than 
<= Less than or equal to. 
>= Greater than or equal to 
<> Not equal 
Graphics 


Exclusive — ORs the first byte of 
x with 113, so that NOT 0 = 1, 
NOT 1 — 0. 

Unlike the other functions, NOT 
has binding power 4 (between 
AND and the relational operators) 
so that for instance NOT A = B 
has the same value as NOT 

{A= B) (and A< >B}. 

The value of the byte in store 
whose address is x (3.1415927) 

A random 

number between 0 and 1. 

Yields —1,0, +1. 

In Radians. 

Square root. 

The string of characters that 


would appear on the screen if x 
were PRINTed. 

In Radians. 

Converts x to an address in store 
and calls that address as a 
machine code subroutine. On 
return, the result is the contents 
of the h1 register pair. 

Evaluates x as a numerical 
expression (x must not contain the 
quote image character). 

Logical AND 

Logical OR 


All characters, their reverses, and all graphics can be entered directly 
from the keyboard. 
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AU REVOIR... 


... FOR NOW 


